[vba] Envoi mail gmail

mew3

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


PHP:
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! :)