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 :

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 ne savais pas à quoi correspondait les xxx.xxxxx.xx utilisés dans la variable Flds, je l'ai remplacé par mon serveur de messagerie.
Je crois donc que si ca marche pas, ca doit se trouver à ce niveau.

Quelqu'un peut il m'aider ?...