DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / Développer une application ou un site / Champs, fenêtres et pages / Champs : Types disponibles / Champ Zone de Texte Riche
  • 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
WINDEVWEBDEV - Code ServeurEtats et RequêtesWindowsCode Utilisateur (MCU)AjaxProcédures stockées
Le code suivant utilise MS Exchange pour lire les nouveaux emails reçus. Ces emails sont présents dans la boîte de réception de MS Exchange et sur le serveur. Un profil "PROFIL_Exemple" a été créé sous MS Exchange. Pour plus de détails sur la création des profils, consultez la fonction EmailOuvreSession.
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)
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale