Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet de lire tous les e-mails reçus, du plus récent au plus ancien. Pour chaque e-mail, l'utilisateur peut visualiser l'ensemble de l'e-mail dans la fenêtre "RCV_MSG".
|
||
|
// Ouverture de la session d'e-mails (protocole POP3)
SI EmailOuvreSession(USER, PASSWORD, "pop3.ifrance.fr", ... "smtp.ifrance.fr") = Vrai ALORS NomUser = USER SINON NomUser = "" Erreur("Impossible d'établir la connexion") FIN ... // Lecture du dernier enregistrement reçu EmailLitDernier(NomUser) // Parcours des e-mails (du plus récent au plus ancien) TANTQUE Email.EnDehors = Faux SI Confirmer("Message de" + Email.Expéditeur + ... "Voulez vous lire ce message ?") ALORS Ouvre("RCV_MSG") SINON EmailLitPrécédent (NomUser) FIN FIN
|
