Erreur dans un code d'envoi de mail via gmail Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
MehdiA76
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 29 mars 2018
Version d'Excel : 2016

Message par MehdiA76 » 13 avril 2018, 14:13

Bonjour,

Via un tuto youtube, j'ai ecrit mon code vba pour pouvoir envoyer un mail, cependant mon code ne bug pas mais ne m'envoi pas mon mail, quelqu'un pourrait m'éclaircir sur l'erreur qui a été faite svp
Sub Email()
Dim MyMail As CDO.Message
Set MyMail = New CDO.Message

MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smptauthenticate") = 1
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monmail.@gmail.com"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "monmdp"
MyMail.Configuration.Fields.Update

With MyMail
.Subject = "Test Email Projet VBA"
.From = "monmail.@gmail.com"
.To = "monmail.@gmail.com"
.TextBody = "Validation du test!"
'.AddAttachment "Chemin du fichier"
End With
On Error Resume Next
MyMail.Send
MsgBox "le mail est bien envoyé"
Set MyMail = Nothing
End Sub
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'343
Appréciations reçues : 190
Inscrit le : 13 juin 2016
Version d'Excel : 2013 FR 64 bits

Message par thev » 13 avril 2018, 14:38

Bonjour,

ca ne peut pas fonctionner car la configuration du message n'utilise pas de cryptage.
voir ma réponse dans ce topic
viewtopic.php?f=2&t=108110
M
MehdiA76
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 29 mars 2018
Version d'Excel : 2016

Message par MehdiA76 » 13 avril 2018, 14:43

C'est parfait, merci beaucoup ! :mrgreen:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message