Auteur: Patrick BikerExemples é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'un table avec les messages reçus EmailLitPremier(NomUser) TANTQUE Email.EnDehors = Faux TableAjoute("Table_Email",Email.Expediteur + 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. 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-mail IdEmail = EmailOuvreSession("PROFILE_Exemple") // Récupération des messages dans la boite 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. 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-mail 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)
|
