Envoi de mail vers une adresse de type: monadresse@yahoo.fr

Signaler
Messages postés
98
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
20 août 2012
-
Messages postés
98
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
20 août 2012
-
Salut à tous!

Suis tomber sur ce code que j'ai eu sur developpez.com. Il consiste d'après ce que j'ai compris à l'envoi d'un mail; cependant à l'éxécution j'ai le message d'erreur suivant:
Erreur d'exécution 2147220973 (80040213) Le transport a échoué dans sa connection vers le serveur.

Voici le code:

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"
.Update
End With
Set email = New CDO.Message
With email
Set .Configuration = config
.From = [mailto:superorage@yahoo.fr superorage@yahoo.fr]
.To = "unxun[mailto:unxun@yahoo.fr @yahoo.fr]"
.Subject = "Sujet"
.Textbody = "TEST 01"
.Send
End With

Il y a en plus, un controle MAPIsession et un MAPImessages. J'ai également ajouté la référence Microsoft CDO for Windows ...

Au cas où le code est bidon, indiquez - mois un lien où je peux trouver un code pouvantb permettre de d'envoyer un mail à une adresse sur yahoo.fr depuis mon application VB 6.

2 réponses

Messages postés
159
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
8 janvier 2010
2
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
Messages postés
98
Date d'inscription
vendredi 4 juin 2004
Statut
Membre
Dernière intervention
20 août 2012

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.