Envoi Email Echec

[omega]

Bonjour à tous,

Je ne comprends pas pourquoi ce code m'affiche une erreur pourtant il marchait bien avant. J'ai juste porté quelques changements et voilà...

Message affiché: Can't sent the mail !

Merci

Code : Tout sélectionner

InitNetwork()

If CreateMail(0, "softbanque@gmail.com", "Juste pour tester !")

AddMailRecipient(0, "contact@promadoc.com", #PB_Mail_To)

 Result = SendMail(0, "smtp.gmail.com", 25, #PB_Mail_Asynchronous)
  
  Repeat
    Progress = MailProgress(0)
    Delay(300)
  Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
  
  If Progress = #PB_Mail_Finished
    MessageRequester("Information", "Message envoyé !")
  Else
    MessageRequester("Error", "Can't sent the mail !")
  EndIf
 
EndIf

[Mindphazer]

Il me semble que Google a récemment modifié sa méthode d'authentification pour son serveur de messagerie SMTP avec Gmail.
De mémoire, il faut autoriser les accès moins sécurisés dans les paramètres de sécurité de ton compte Google : (in english sorry )

How To Enable Email Sending In Gmail?

Before sending emails using the Gmail's SMTP Server, you to make some of the security and permission level settings under your Google Account Security Settings.

Make sure that 2-Step-Verification is disabled.

Turn ON the "Less Secure App" access or click here.

If 2-step-verification is enabled, then you will have to create app password for your application or device.

For security measures, Google may require you to complete this additional step while signing-in. Click here to allow access to your Google account using the new device/app.

[falsam]

L'envoie d'un mail en utilisant le serveur de gmail s'effectue de cette manière

Code : Tout sélectionner

InitNetwork()

  ; Assurez-vous d'utiliser le bon login et le bon mot de passe
  ;
  Identifiant$ = "votrelogin"
  If CreateMail(0, Identifiant$ + "@gmail.com", "Hello")
    AddMailRecipient(0, "votreadresse@gmail.com", #PB_Mail_To)

    Debug SendMail(0, "smtp.gmail.com", 465, #PB_Mail_UseSSL, Identifiant$, "motdepasse")
  EndIf

Exemple tiré de l'aide

Mais google interceptera le mail avec le message suivant.

Google a bloqué l'application que vous essayiez d'utiliser, car cette dernière ne respecte pas nos normes de sécurité.
Certaines applications et certains appareils utilisent une technologie de connexion moins sécurisée, ce qui rend votre compte plus vulnérable. Vous pouvez désactiver l'accès pour ces applications (recommandé) ou l'activer si vous voulez les utiliser malgré les risques encourus. Google désactive automatiquement ce paramètre s'il n'est pas utilisé.

Je pense qu'il vaut mieux utiliser le smtp du FAI (Free, Orange, SFR ...)

[falsam]

Voici un exemple fonctionnel d'envoi de mail sécurisé (SSL) avec mon FAI SFR. j'ai testé l'ajout d'un destinataire en copie ainsi que de deux pièces jointes se trouvant dans le meme dossier que le code.

Code : Tout sélectionner

InitNetwork()

Define user.s = "votre nom@sfr.fr"
Define pass.s = "votre mot de passe"

If CreateMail(0, user, "Hello !")
  
  ;Text de l'émail
  SetMailBody(0, "Bonjour" + #CRLF$ + 
                 "Voici les piéces demandées" + #CRLF$ +
                 "Cordialement !")
  
  ;Ajout des piéces jointes
  AddMailAttachment(0, "Comment faire", "howto.dat")
  AddMailAttachment(0, "Résultat", "resu.pdf")
  
  ; Ajout du destinataire
  AddMailRecipient(0, "votre destinataire@gmail.com", #PB_Mail_To)
  
  ; Ajout éventuel d'un destinataire en copie
  AddMailRecipient(0, "falsam@falsam.com", #PB_Mail_Cc)
  
  ; Renseigner le serveur SMTP
  Result = SendMail(0, "smtp.sfr.fr", 465, #PB_Mail_UseSSL, user, 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 correctement envoyé")
  Else
    MessageRequester("Information", "Impossible d'envoyer le mail!")
  EndIf
EndIf