envoyer un mail sur gmail

[Parole De JOJO]

Dobro va surement de nouveau me fusiller, mais cette fois j'ai cherche un quart d'heure sur le forum et j'ai rien trouve

comment envoyer un mail sur gmail????????
le code ne marche pas ou c'est moi l'idiot?

Code : Tout sélectionner

Debug InitNetwork()


If CreateMail(0, "******@gmail.com", "Hello !")

  SetMailBody(0, "Hello   "+Chr(10)+"This is a mail !")
  
  
  
  AddMailRecipient(0, "****@gmail.com", #PB_Mail_To)
  Result = SendMail(0, "smtp.gmail.com", 25*, 1)
  
  Repeat
    Progress = MailProgress(0)
    Debug Progress
    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

au bout d'un quart d'heure toujours rien

[jbernard13]

Bonsoir

as tu regarder ici j'ai mis une minute a trouver

http://www.purebasic.fr/french/viewtopi ... ilit=gmail

[Parole De JOJO]

c'est ce code que j'ai teste
marche pas du tout
me retourne un message d'erreur
et ... oui, j'ai rajoute la ligne de destinataire

[Backup]

................

[Parole De JOJO]

il me dit message envoye mais le mail n'arrive pas
j'ai fait un

Code : Tout sélectionner

Debug PBSendMail(

et il me retourne 0
de toutes les facons il y a un probleme car le message de confirmation n'est pas dans un if

[SPH]

Code : Tout sélectionner

InitNetwork()

If CreateMail(0, "", "Envoie")
          SetMailBody(0, "Le message dans l'email")
          AddMailRecipient(0, "mail@gmail.com", #PB_Mail_To)
          AddMailAttachment(0, "001", "c:\mbam-error.txt", "")
          Resultat = SendMail(0, "smtp.orange.fr", 25, 0); le smtp du fournisseur qui envoie le mail
          
          If Resultat = 1
            MessageRequester("Information", "Mail envoyé avec succée", 0)
            End
          ElseIf Resultat = 0
            MessageRequester("Information", "Le mail n'a pas pu étre envoyé", 0)
          EndIf
EndIf

[Parole De JOJO]

"le mail n'a pas pu etre envoye"

tu est sur que ca marche avec orange?

[SPH]

"le mail n'a pas pu etre envoye"

tu est sur que ca marche avec orange?

Si tu es chez orange, oui !

Et met une vrai piece jointe ici :

Code : Tout sélectionner

AddMailAttachment(0, "001", "c:\mbam-error.txt", "")

Ou vire cette ligne...

[Parole De JOJO]

mais je suis sur GMAIL

[SPH]

mais je suis sur GMAIL

Ton email est Gmail, mais ton fournisseur d'acces, c'est qui ???

[Parole De JOJO]

ben, gmail je crois, non?

[SPH]

ben, gmail je crois, non?

Je ne crois pas...
Tu as loué ton modem chez qui ? Orange ? Free ? Neuf ? SFR ?

[Parole De JOJO]

ah, je sais pas, je capte du voisin
d'ailleurs je ne suis pas en france
mais c'est embetant si il faut connaitre le fournisseur car on ne peut pas faire un prog universel?

[SPH]

ah, je sais pas, je capte du voisin
d'ailleurs je ne suis pas en france
mais c'est embetant si il faut connaitre le fournisseur car on ne peut pas faire un prog universel?

SI

Code : Tout sélectionner

InitNetwork()

If CreateMail(0, "", "Envoie")
          SetMailBody(0, "Le message dans l'email")
          AddMailRecipient(0, "MAIL@gmail.com", #PB_Mail_To)
          AddMailAttachment(0, "Piece Jointe", "c:\mbam-error.txt", "")
          
          Resultat = SendMail(0, "smtp.orange.fr", 25, 0)
          If resultat=0
            Resultat = SendMail(0, "smtp.free.fr", 25, 0)
            If resultat=0
              Resultat = SendMail(0, "smtp.cegetel.fr", 25, 0)
              If resultat=0
                Resultat = SendMail(0, "smtp.alice.fr", 25, 0)
                If resultat=0
                  Resultat = SendMail(0, "smtp.club-internet.fr", 25, 0)
                  If resultat=0
                    Resultat = SendMail(0, "smtp.neuf.fr", 25, 0)
                    If resultat=0
                      Resultat = SendMail(0, "smtp.noos.fr", 25, 0)
                      If resultat=0
                        Resultat = SendMail(0, "smtp.tele2.fr", 25, 0)
                        If resultat=0
                          Resultat = SendMail(0, "smtp.tiscali.fr", 25, 0)
                          If resultat=0
                            Resultat = SendMail(0, "smtp.wanadoo.fr", 25, 0)
                            If resultat=0
                              Resultat = SendMail(0, "smtp.caramail.fr", 25, 0)
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Rajouter dans la liste les fournisseurs de ton pays

[Parole De JOJO]

ben on va s'amuser
il n'y a aucune autre possibilite?


merci bcp en tout cas