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 de lire les e-mails reçus présents dans la boîte aux lettres du protocole POP3. Ces e-mails sont lus du premier au dernier et sont affichés dans la table "Table_Email". 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.).



// 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
// Remplissage d'une table avec les messages reçus
EmailLitPremier(NomUser)
TANTQUE Email.EnDehors = Faux
   TableAjoute("Table_Email",Email.Expéditeur + TAB + Email.Sujet)
   EmailLitSuivant (NomUser)
FIN


Le code suivant utilise MS Exchange 4 pour lire les nouveaux e-mails reçus. Ces e-mails sont présents dans la boîte de réception de MS Exchange et sur le serveur. Un profile "PROFILE_Exemple" a été créé sous MS Exchange 4. Pour plus de détails sur la création des profiles, consultez la fonction EmailOuvreSession .



IdEmail est un entier
// Ouverture de la session d'e-mails
IdEmail = EmailOuvreSession("PROFILE_Exemple")
// Récupération des messages dans la boîte de réception de MS Exchange
EmailMiseAJour(IdEmail)
// Parcours des nouveaux messages reçus depuis le premier jusqu'au dernier
EmailLitPremier(IdEmail, "NON LUS")
TANTQUE Email.EnDehors = Faux
   SI OuiNon("Vous avez reçu un e-mail de" + Email.Expéditeur + ...
              "Voulez-vous le lire ?") ALORS
      // Ouverture de la fenêtre de lecture des messages
      Ouvre("Email_RCV")
   SINON
      EmailLitSuivant (IdEmail, "NON LUS")
   FIN
FIN
...
EmailFermeSession(IdEmail)


Le code suivant utilise Pocket Outlook pour lire les nouveaux e-mails reçus. Ces e-mails sont présents dans la boîte de réception de Pocket Outlook et sur le serveur. Un compte "Compte_Exemple" a été créé sous Pocket Outlook. Pour plus de détails sur la création des comptes, consultez Gérez les e-mails grâce à CEMAPI : Autres comptes .



IdEmail est un entier
// Ouverture de la session d'e-mails
IdEmail = EmailOuvreSession("Compte_Exemple")
// Parcours des nouveaux messages reçus depuis le premier jusqu'au dernier
EmailLitPremier(IdEmail, "NON LUS")
TANTQUE Email.EnDehors = Faux
 
  SI OuiNon("Vous avez reçu un e-mail de" + Email.Expéditeur + ...
              "Voulez-vous le lire ?") ALORS
      // Ouverture de la fenêtre de lecture des messages
      Ouvre("Email_RCV")
   SINON
      EmailLitSuivant (IdEmail, "NON LUS")
   FIN
FIN
...
EmailFermeSession(IdEmail)