Erreur dans un code d'envoi de mail via gmail

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

Bonjour,

ca ne peut pas fonctionner car la configuration du message n'utilise pas de cryptage.

voir ma réponse dans ce topic

https://forum.excel-pratique.com/viewtopic.php?f=2&t=108110

C'est parfait, merci beaucoup !

Rechercher des sujets similaires à "erreur code envoi mail via gmail"