probleme avec l'envoi de courriel en pb

[YvesRossignol]

Bonjour, j'utilise un code simple pour envoyer des courriels dans une application. ça allait bien jusqu'à ce que gmail refuse d'envoyer mes courriels quand mes clients utilisent ma fonction. Ce n'est pas régulier. J'ai essayer un mode SSL mais le courriel n'arrive pas à partir..

Code : Tout sélectionner

If CreateMail(#file18, "finances@yrtechnosoft", "Send email confirmation")

  SetMailBody(#file18, "Confirmation email" + #CRLF$ + 
                 "thanks" + #CRLF$ +
                 "for your support !")
  
;   MessageRequester("nom fichier",nomFich$)
  
    AddMailAttachment(#file18, nomFich$  , nomFich$+".dat")
  
  ; Change the recipients to real one
          
    AddMailRecipient(#file18, "finances@yrtechnosoft.com", #PB_Mail_To)
    AddMailRecipient(#file18, "store@yrtechnosoft.com", #PB_Mail_Cc)
  
  ; Set the SMTP server to use
  
   ; Result = SendMail(#file18, "hp184.hostpapa.com", 465 , #PB_Mail_UseSSL ,"xxxxxxx@yrtechnosoft.com","xxxxxxx")
    Result = SendMail(#file18, "mail.yrtechnosoft.com", 587, #PB_Mail_Asynchronous ,"xxxxxxx@yrtechnosoft.com","xxxxxxx")

; les xxxxxxx remplacent le bon courriel et le bon mot de passe.... #file18 est initialisé... la première ligne "result = ..." ne parvient pas à envoyer le courriel
; la seconde ligne "result = ...." y arrive mais gmail bloque mon fichier qui a une extension *.dat

    Repeat
    Progress = MailProgress(#file18)
    Delay(300)
    Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
  
    If Progress = #PB_Mail_Finished
    MessageRequester("Information", "Mail correctly sent !" + #CRLF$ + "you will receive your key in the next 24 to 48 hours, if you use gmail look into spam folder")
    Else
    MessageRequester("Error", "Can't sent the mail !")
    EndIf
  
EndIf

Je suis embêté. Le site hostpapa accepte le protocole SSL

Merci de votre collaboration

[Kwai chang caine]

J'ai eu aussi des blêmes avec la lib mail, mais moi ça concernait les ZIP
http://www.purebasic.fr/english/viewtop ... =mail+free
Les serveur mails ont de bien curieux comportements

[Mesa]

Les antivirus et les pare-feux peuvent faire ce genre de chose.
Par expérience, il faudrait mettre le Resultat = InitNetwork() dans une boucle de 10 essais. Si le résultat est toujours nul c'est généralement l'antivirus qui bloque.

De plus, comme les serveurs mail sont souvent encombrés, il est conseillé aussi de mettre un sendmail dans une boucle qui gère jusquà 10 essais avec une pause de quelques secondes entre chaque essais. Le mail finit par passer.

M.

[Marc56]

Je n'ai pas testé ton code, mais dès la première ligne, cela ne va pas (il n'y a pas de suffixe dans l'adresse mail)

Code : Tout sélectionner

If CreateMail(#file18, "finances@yrtechnosoft", "Send email confirmation")

Note aussi que Gmail est très tatillon sur le sécurité: si je teste l'exemple de base de la doc PB,
SendMail() retourne 0.
Mais je reçois un mail de google (dans la boite mail de récupération et non pas dans la boite de destination)

Nous venons de bloquer une tentative de connexion à votre compte Google
xxxxxxxxxx@gmail.com depuis une application présentant un risque pour ce dernier.
Application moins sécurisée

[Kwai chang caine]

Comme quoi une seule petite erreur, ça "SUFIX"