Re : Envoie de mail en passant par CDO.
Bonjour Jaja, Staple, le forum,
Sans vouloir t'offenser mais tu veux utiliser Yahoo en déclarant un compte Gmail :
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
Tu dois introduire "smtp.mail.yahoo.fr".
Ensuite, tu dois mettre la valeur 465 au lieu de 25 :
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
N'oublie pas également de mettre l'adresse Yahoo ainsi que ton mot de passe Yahoo.
Enfin, ne t'arrête pas au premier essai, insiste. J'ai rencontré ce type de problème et en insistant, cela fonctionne.
Perso, je n'utilise pas ces lignes :With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Pour terminer, je te conseille de faire une gestion des erreurs (On Error goto ....)
A te lire, cordialement,
Michel