pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet d'envoyer un e-mail en utilisant le protocole POP3. Les caractéristiques du protocole POP3 ont été précisées grâce à la fonction EmailOuvreSession (adresse du serveur POP3, adresse du serveur SMTP, etc.).

En cas d'erreur, le message complet de l'erreur est affiché. Lorsque l'e-mail est envoyé, la session est fermée.



// Ouverture de la session d'e-mail
SI EmailOuvreSession(USER, PASSWORD, "pop3.ifrance.fr", ...
                     "smtp.ifrance.fr") = Vrai ALORS
   NomUser = USER
SINON
   NomUser = ""
   Erreur("Impossible d'établir la connexion")
FIN
// Initialise les composantes de l'e-mail
Email.Expéditeur = "<user@pcsoft.fr>"    // L'expéditeur
Email.Destinataire[1] = DESTINATAIRE     // Le destinataire
Email.NbDestinataire = 1     // Le nombre de destinataires
Email.Sujet = SUJET          // Le sujet
Email.Message = TEXTE        // Le corps du message
Email.NbAttache = 0          // Le nombre de pièces attachées
// Envoie de l'e-mail
SI EmailEnvoieMessage(NomUser) = Faux ALORS
   Erreur( EmailMsgErreur (Email.Erreur))
FIN
...
EmailFermeSession(NomUser)