Bonjour,
J'ai un petit soucis : j'ai crée une page permettant d'envoyer à un visiteur d'envoyer un mail directement à ma boite. Je me suis inspiré d'un code que j'ai trouvé dans le forum (code écrit par dragonfly). Malheureusement, il ne marche pas : il y a une erreur quand on clique sur le bouton envoie.
Voici le code en question :
Je ne savais pas à quoi correspondait les xxx.xxxxx.xx utilisés dans la variable Flds, je l'ai remplacé par mon serveur de messagerie.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Dim iConf Dim Flds Dim Message Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.xx" .Update End With Set Message = CreateObject("CDO.Message") With Message Set .Configuration = iConf .To = "courrier@monadress.com" .From = LaFeuille.txtExpediteur.value .subject = LaFeuille.txtObjet.value .TextBody = LaFeuille.txtMessage.value .Send End With
Je crois donc que si ca marche pas, ca doit se trouver à ce niveau.
Quelqu'un peut il m'aider ?...
Partager