Comment envoyer un Email par GPRS ?
//Ouverture de la connexion GPRS
NetOuvreAccèsDistant("Orange GPRS")
//Ouverture d`une session SMTP
EmailOuvreSessionSMTP("SessionSMTP", "smtp.free.fr")
SI ErreurDetectee ALORS
Erreur(ErreurInfo(errResume))
NetFermeAccèsDistant()
RETOUR
FIN
//Expediteur du message
Email.Expediteur = "philippe@freedev.eu"
//Destinataire(s) du message
Email.Destinataire[1] = "destinataire1@free.fr"
Email.NbDestinataire = 1
//Pièces jointes
Email.NbAttache = 0
//Sujet et contenu du message
Email.Sujet = "Test d?envoi d ?Email par GPRS"
Email.Message = "Ceci est un message envoye par GPRS"
EmailEnvoieMessage("SessionSMTP")
SI ErreurDetectee ALORS
Erreur(ErreurInfo(errResume))
EmailFermeSession("SessionSMTP")
RETOUR
FIN
EmailFermeSession("SessionSMTP")