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.
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)
|