|
|
|
|
|
|
|
|
- Exemple 1 : Lecture des emails reçus par le protocole POP3
- Exemple 2 : Lecture des emails reçus par l'intermédiaire de MS Exchange
EmailLitSuivant (Exemple)
Exemple 1 : Lecture des emails reçus par le protocole POP3 Le code suivant permet de lire les emails reçus présents dans la boîte aux lettres du protocole POP3. Ces emails 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'email
SI EmailOuvreSession(USER, PASSWORD, "pop3.serveur.com", ...
"smtp.serveur.com") = 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
Exemple 2 : Lecture des emails reçus par l'intermédiaire de MS Exchange
IDEmail est un entier
// Ouverture de la session d'emails
IDEmail = EmailOuvreSession("PROFIL_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 email de " + Email.Expéditeur + ...
"Voulez-vous le lire ?") ALORS
// Ouverture de la fenêtre de lecture des messages
Ouvre(FEN_Email_RCV)
SINON
EmailLitSuivant(IDEmail, "NON LUS")
FIN
FIN
...
EmailFermeSession(IDEmail)
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|