Page 1 sur 2
envoyer un mail sur gmail
Publié : mar. 30/nov./2010 16:22
par 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
Re: envoyer un mail sur gmail
Publié : mar. 30/nov./2010 16:56
par jbernard13
Bonsoir
as tu regarder ici j'ai mis une minute a trouver
http://www.purebasic.fr/french/viewtopi ... ilit=gmail
Re: envoyer un mail sur gmail
Publié : mar. 30/nov./2010 16:58
par 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
Re: envoyer un mail sur gmail
Publié : mar. 30/nov./2010 17:14
par Backup
................
Re: envoyer un mail sur gmail
Publié : mar. 30/nov./2010 17:36
par Parole De JOJO
il me dit message envoye mais le mail n'arrive pas
j'ai fait un
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
Re: envoyer un mail sur gmail
Publié : mar. 30/nov./2010 18:59
par 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
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:15
par Parole De JOJO
"le mail n'a pas pu etre envoye"
tu est sur que ca marche avec orange?
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:22
par SPH
Parole De JOJO a écrit :"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 :
Ou vire cette ligne...
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:22
par Parole De JOJO
mais je suis sur GMAIL
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:23
par SPH
Parole De JOJO a écrit :mais je suis sur GMAIL
Ton email est Gmail, mais ton fournisseur d'acces, c'est qui ???
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:26
par Parole De JOJO
ben, gmail je crois, non?
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:27
par SPH
Parole De JOJO a écrit :ben, gmail je crois, non?
Je ne crois pas...
Tu as loué ton modem chez qui ? Orange ? Free ? Neuf ? SFR ?
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:34
par 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?
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:39
par SPH
Parole De JOJO a écrit :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
Re: envoyer un mail sur gmail
Publié : mer. 01/déc./2010 11:41
par Parole De JOJO
ben on va s'amuser
il n'y a aucune autre possibilite?
merci bcp en tout cas