Exemple d'utilisation de la commande EmailNbMessage

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'afficher le nombre d'e-mails reçus actuellement dans la boîte aux lettres POP3.

// Ouverture de la session d'e-mail (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 premier enregistrement reçu
SI EmailLitPremier(NomUser) ALORS
   SI Email.EnDehors = Faux ALORS
      Info("Vous avez" + EmailNbMessage() + "sur le serveur")
      Ouvre("Consult_Email")
   SINON
      Info("Aucun e-mail")
   FIN
SINON
   Erreur(EmailMsgErreur(Email.Erreur))
FIN