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