EmailReadMessage (Example)

ONLINE HELP
WINDEV, WEBDEV AND WINDEV MOBILE

Version:

Home | Sign in | English

This content has been translated automatically. Click here to view the French version.

Help / Developing an application or website / Controls, windows and pages / Controls: Available types / Rich Text Area control

Reading the emails received in the POP3 mailbox

EmailReadMessage (Example)

See the associated help page

Reading the emails received in the POP3 mailbox

The following code is used to read all the emails found in the POP3 mailbox.

// Ouverture de la session POP3 
IF EmailStartSession(USER, PASSWORD, "pop3.ifrance.fr", ...
			"smtp.ifrance.fr") = True THEN
   	NomUser = USER
ELSE
   	NomUser = ""
   	Error("Impossible d'établir la connexion")
END

...

I is int
// Récupération du nombre de messages dans la boîte aux lettres POP3
nbMSG is int = EmailNbMessage(NomUser)
// Parcourt les messages et récupère la structure email dans un fichier de données HFSQL
FOR I = 1 TO nbMSG
	EmailReadMessage(NomUser,I)
	// Teste l'existence du message
	IF Email.Out <> True THEN
		// Les variables de la structure email sont transférées
      		// dans les rubriques du fichier
      		ME.NOM = Email.Sender
      		ME.MESSAGE = Email.Message
      		...
      		HAdd(Message)
   	ELSE
      		// Le message n'existe plus
      		Info("Ce message a été supprimé")
   	END
END