Envoi de mail vers une adresse de type: monadresse@yahoo.fr
YPMN
Messages postés
98
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
20 août 2012
-
19 juin 2009 à 18:33
YPMN Messages postés 98 Date d'inscription vendredi 4 juin 2004 Statut Membre Dernière intervention 20 août 2012 - 20 juin 2009 à 16:03
YPMN Messages postés 98 Date d'inscription vendredi 4 juin 2004 Statut Membre Dernière intervention 20 août 2012 - 20 juin 2009 à 16:03
2 réponses
Supra3000
Messages postés
159
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
8 janvier 2010
2
19 juin 2009 à 20:57
19 juin 2009 à 20:57
Voici un exemple avec internet de Videotron :
Dim config As CDO.Configuration
Dim email As CDO.Message
Set config = New CDO.Configuration
With config.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.monserveur.com" => Doit être ton serveur smtp ex : "relais.videotron.ca"
.Update
End With
Set email = New CDO.Message
With email
Set .Configuration = config
.From = [mailto:superorage@yahoo.fr superorage@yahoo.fr] => Doit être ton e-mail personnel, tu ne peux pas spoofer des courriels yahoo Ex : [mailto:monnom@videotron.ca monnom@videotron.ca]
.To = "unxun[mailto:unxun@yahoo.fr @yahoo.fr]"
.Subject = "Sujet"
.Textbody = "TEST 01"
.Send
End With
Dim config As CDO.Configuration
Dim email As CDO.Message
Set config = New CDO.Configuration
With config.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"smtp.monserveur.com" => Doit être ton serveur smtp ex : "relais.videotron.ca"
.Update
End With
Set email = New CDO.Message
With email
Set .Configuration = config
.From = [mailto:superorage@yahoo.fr superorage@yahoo.fr] => Doit être ton e-mail personnel, tu ne peux pas spoofer des courriels yahoo Ex : [mailto:monnom@videotron.ca monnom@videotron.ca]
.To = "unxun[mailto:unxun@yahoo.fr @yahoo.fr]"
.Subject = "Sujet"
.Textbody = "TEST 01"
.Send
End With
YPMN
Messages postés
98
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
20 août 2012
20 juin 2009 à 16:03
20 juin 2009 à 16:03
Merci beaucoup pour la réponse Supra3000!
Je crois que ta réponse est correcte mais ma machine plutot déconne car la même erreur me révient et pourtant j'ai essaiyé l'exemple tant avec vidéotron que yahoo.fr où j'ai configuré le serveur smtp comme: "smtp.mail.yahoo.fr" comme l'indique l'option mail de ce site ... suis désolé pour moi même malgré mon bésoin préssant.
Je te suis réconnaissant toutes fois.
Je crois que ta réponse est correcte mais ma machine plutot déconne car la même erreur me révient et pourtant j'ai essaiyé l'exemple tant avec vidéotron que yahoo.fr où j'ai configuré le serveur smtp comme: "smtp.mail.yahoo.fr" comme l'indique l'option mail de ce site ... suis désolé pour moi même malgré mon bésoin préssant.
Je te suis réconnaissant toutes fois.
