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 utilise MS Exchange 4 pour lire les nouveaux e-mails reçus. Après l'ouverture de la session d'e-mail, la boîte de réception de MS Exchange est mise à jour : les e-mails présents sur le serveur sont transférés dans 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 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)
|
