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

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 = superorage@yahoo.fr
.To = "unxun@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.

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 = superorage@yahoo.fr => Doit être ton e-mail personnel, tu ne peux pas spoofer des courriels yahoo Ex : monnom@videotron.ca

.To = "unxun@yahoo.fr"
.Subject = "Sujet"
.Textbody = "TEST 01"
.Send
End With

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.