[vba] Envoi mail gmail

[mew3]

Bonjour, j'ai un petit soucis avec un code pour l'envoi de mail via GMAIL:

Sub SendEmailUsingGmail()


Dim NewMail As CDO.Message

Set NewMail = New CDO.Message

'Enable SSL Authentication
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'Make SMTP authentication Enabled=true (1)

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Set the SMTP server and port Details
'To get these details you can get on Settings Page of your Gmail Account

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Set your credentials of your Gmail Account

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monemail@gmail.com"

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "monmotdepasse"

'Update the configuration fields
NewMail.Configuration.Fields.Update

'Set All Email Properties

With NewMail
 .Subject = "Test Mail"
  .From = "monemail@gmail.com"
  .To = "monemail@gmail.com"
 .CC = ""
  .BCC = ""
 .TextBody = ""
End With

NewMail.Send 
MsgBox ("Mail has been Sent")

'Set the NewMail Variable to Nothing
Set NewMail = Nothing

End Sub

debogage sur le "NewMail.Send"

avez-vous une idée? j'ai essayer de changer les ports, etc etc, mais rien n'y fait...

Merci d'avance! 🙂

 

[Staple1600]

Re : [vba] Envoi mail gmail

Bonsoir à tous


Peut-être voir si la référence à CDO est bien cochée dans VBE.
(Voir sur le net pour plus de détails)

Sinon on peut aussi aller saluer Mister Ron 😉
Sending mail from Excel with CDO

 

[mew3]

Re : [vba] Envoi mail gmail

Oui oui CDO est bien cocher, toujours le meme probleme :/
J'ai testé les codes de ron, et toujours la meme erreur au ".send"

personne à déja eu ce problème?