//Ouverture de la connexion GPRS
NetOuvreAccèsDistant("Orange GPRS")

//Ouverture d`une session SMTP
EmailOuvreSessionSMTP("SessionSMTP", "smtp.free.fr")

SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
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 ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
EmailFermeSession("SessionSMTP")
RETOUR
FIN

EmailFermeSession("SessionSMTP")