Exemple d'utilisation de la commande EmailLitMessage

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 tous les e-mails présents dans la boîte aux lettres POP3.

// Ouverture de la session POP3
SIEmailOuvreSession(USER, PASSWORD, "pop3.ifrance.fr", ...
                     "smtp.ifrance.fr") = Vrai ALORS
   NomUser =USER
SINON
   NomUser = ""
   Erreur("Impossible d'établir la connexion")
FIN
...
I est un entier
// Récupération du nombre de messages dans la boîte aux lettres POP3
nbMSG est un entier = EmailNbMessage(NomUser)
// Parcourt les messages et récupère la structure e-mail dans un fichier Hyper File
POUR I = 1 à nbMSG
   EmailLitMessage (NomUser,I)
   // Teste l'existence du message
   SI Email.EnDehors <> Vrai ALORS
      // Les variables de la structure e-mail sont transférées
      // dans les rubriques du fichier
      ME.NOM = Email.Expediteur
      ME.MESSAGE = Email.Message
      ...
      HAjoute(Message)
   SINON
      // Le message n'existe plus
      Info("Ce message a été supprimé")
   FIN
FIN