Pb 6.01
I can't sent the mail 1) or 2)
Code: Select all
Mail_From$="xxx@gmail.com"
Mail_Pass$="*****"
Mail_To$="yyy@gmail.com"
If CreateMail(0, Mail_From$, "Hello")
AddMailRecipient(0, Mail_To$, #PB_Mail_To)
; 1) ; Result = SendMail(0, "smtp.gmail.com", 465, #PB_Mail_UseSSL, Mail_From$, Mail_Pass$)
; or 2) ;
Result = SendMail(0, "smtp.gmail.com", 587, #PB_Mail_UseSMTPS, Mail_From$, Mail_Pass$)
Repeat
Progress = MailProgress(0)
Delay(300)
Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
If Progress = #PB_Mail_Finished
MessageRequester("Information", "Mail correctly sent !")
Else
MessageRequester("Error", "Can't sent the mail !")
EndIf
EndIf
With parameters of Thunderbird, to send mail is OK
Server=smtp.gmail.com
Port=465
Sécurité de la connexion =SSL/TSL
Méthode d'authentification = OAuth2
Nom utilisateur=xxx@gmail.com
Do you know where is the proberm ?
Thank's