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 le cinquième e-mail reçu et de le supprimer. 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 // Lecture des messages reçus I est un entier nbMSG est un entier = EmailNbMessage(NomUser) POUR I = 1 à nbMSG EmailLitMessage(NomUser,I) SI I = 5 ALORS EmailSupprimeMessage (NomUser, 5) FIN FIN
|
||
Le code suivant permet de supprimer des e-mails reçus dans MS Exchange 4. 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-mail IdEmail = EmailOuvreSession("PROFILE_Exemple") // Lit tous les messages reçus et demande la suppression de certains messages EmailLitPremier(IdEmail) TANTQUE Email.EnDehors = Faux SI OuiNon(Email.Sujet+ RC +"Voulez vous supprimer ce message?") ALORS EmailSupprimeMessage (IdEmail) FIN EmailLitSuivant(IdEmail) FIN ... EmailFermeSession(IdEmail)
|
||
Le code suivant permet de supprimer des e-mails reçus dans Pocket Outlook. 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-mail IdEmail = EmailOuvreSession("Compte_Exemple") // Lit tous les messages reçus et demande la suppression de certains messages EmailLitPremier(IdEmail) TANTQUE Email.EnDehors = Faux SI OuiNon(Email.Sujet+ RC +"Voulez vous supprimer ce message?") ALORS EmailSupprimeMessage (IdEmail) FIN EmailLitSuivant(IdEmail) FIN ... EmailFermeSession(IdEmail)
|
