Exemple d'utilisation de la commande EmailLitDernier

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 de lire le dernier e-mail reçu. Si l'utilisateur le désire, le contenu de l'e-mail est affiché dans la fenêtre "MAIL_RCV".

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
SI EmailLitDernier (NomUser) ALORS
// Vérification de l'existence de l'e-mail
   SI Email.EnDehors = Faux ALORS
      SI OuiNon("Vous avez reçu un e-mail de" + Email.Expéditeur +…
               "Voulez-vous le lire ?") ALORS
         // Ouverture de la fenêtre permettant de lire l'e-mail
         Ouvre("MAIL_RCV")
      FIN
   SINON
      Info("Pas de mail")
   FIN
SINON
   // Affichage de l'erreur rencontrée lors de la lecture de l'e-mail
   Erreur(EmailMsgErreur(Email.Erreur))
FIN