Bonjour, j'ai un petit soucis avec un code pour l'envoi de mail via GMAIL:
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!
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!