PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV Mobile 2024 → envoie email gprs via pocket smartphone
envoie email gprs via pocket smartphone
Débuté par s.brackez, 15 sep. 2004 12:15 - 1 réponse
#1
Posté le 15 septembre 2004 - 12:15
bonjour, j'essaye d'envoyer un email via GPRS a partir de mon application...
------------------------------------------------------------------------
Rapport est un entier = NetOuvreAccèsDistant("Orange GPRS")
Multitache()
SI Rapport > 0 ALORS
Erreur("Erreur lors de la connexion", NetMsgErreur(Rapport))
Ferme ()
RETOUR
FIN
// -------------------------------------------------
// on envoie le mail
Saisie1=Saisie1+CRLF+"Connexion au Serveur "
SI EmailOuvreSession("poi@XXXX.com", "XXXXX", "pop3.XXXX.com","smtp.orange.fr") = Vrai ALORS
tempo = "userr"
SINON
Erreur("Impossible d'établir la connexion")
GOTO label0
FIN
-----------------------------------------------------------------------
mon message "connexion au serveur" apparait.... il se passe 3mn.....tout est figée
puis l'erreur..impossible d'etablir la connexion

je suis sur que mes parametre de mon compte pop sont ok
de meme que vis a vis de mon abonnement orange sur la messagerie du pocket
tout fonctionne.... erreur dans mon code ?

merci SB
#2
Posté le 15 septembre 2004 - 12:59
alors correction de mon code pour l'envoie... smtp....

-----------------------
Saisie1="Connexion GPRS en Cours..."
Rapport est un entier = NetOuvreAccèsDistant("Orange GPRS")
Multitache()
SI Rapport > 0 ALORS
Erreur("Erreur lors de la connexion", NetMsgErreur(Rapport))
Ferme ()
RETOUR
FIN
// -------------------------------------------------
//Ouverture d'une session SMTP
EmailOuvreSessionSMTP("SessionSMTP", "smtp.orange.fr")
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
GOTO label0
FIN
//Remise a zéro des variables Email
EmailRAZ()
//Expéditeur du message
Email.Expéditeur="poi@XXXXX.com"
//Destinataire(s) du message
Email.Destinataire[1]="poi@XXXX.com"
Email.NbDestinataire=1
//Pièces jointes
Email.NbAttache=0
//Sujet et contenu du message
Email.Sujet="NEW MAILS "
Email.Message="MESSAGE"
Email.HTML=""
// envoie
EmailEnvoieMessage("SessionSMTP")
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
GOTO label0
FIN
//Fermeture de la session SMTP
EmailFermeSession("SessionSMTP")
// ----------------------------------------
// transfert terminé
Saisie1=Saisie1+CRLF+"Fermeture connexion GPRS"
Multitache()
NetFermeAccèsDistant()

et ca marche....
→ Revenir à WINDEV Mobile 2024