• in a variable of type Email. The Email variables allow you to handle several emails simultaneously.
• via the Email structure. The variables of this structure contain the informations regarding the email read.

1. Use a function for reading emails to browse all the emails of a messaging session, several syntaxes are available:
   • Perform a loop such as:
     

     MaSession is emailPOP3Session
     MonMessage is Email
     EmailReadFirst(MaSession, MonMessage)
     WHILE NOT MonMessage.Out
     	// Insérer ici le traitement du message
     	EmailReadNext(MaSession, MonMessage)
     END

   • Retrieve all the messages in an array with EmailGetAll:
     

     MaSession is emailPOP3Session
     MesMessages is array of Email = EmailGetAll(MaSession)

     
     Remarks:
     • When using the POP3 protocol, the incoming emails that can be read are the emails that have been received when the session was started. All the emails received once the session is started are not "visible". To access the new incoming emails, the session must be closed and re-started.
     • To follow the reading progress, use EmailProgressBar.
2. Read the content of the Email variable.
   Note: If the Email contains specific headers, they can be read using the Email type variable.
3. If the HTML property is not empty: message is in HTML format. It must be displayed in a browser (see the example below).
   For each attached file:
   • Save the file on disk (EmailSaveAttachment).
   • Browse the HTML message and find the "cID:"+Identifier value of the attached file. Replace this value by the full path of attached file copied on disk.
     Display the message in a browser.
4. If the HTML property is empty: the message is in text format.
5. Save the attached files on disk if necessary and display the message text.

Example

MonMessage is Email 
...
Repert_Temp is string = "C:\temp\"
CID is string
I is int
// Pour chaque fichier attaché
Attachement is emailAttach
FOR EACH Attachement OF MonMessage.Attach
	// Copier le fichier dans un répertoire temporaire 
	EmailSaveAttachment(Attachement, Repert_Temp + Attachement.Name)
	// Récupérer l'identifiant du fichier attaché dans le mail
	CID = "cid:" + Attachement.Identifier
	// Remplacer les références au fichier attaché par le nom réel du fichier
	MonMessage.HTML = Replace(MonMessage.HTML, CID, ...
			"file:" + Repert_Temp + Attachement.Name)
END
// Afficher le contenu HTML dans un champ HTML
HTM_Affichage = MonMessage.HTML

1. Use a function for reading emails (EmailReadFirst, EmailReadNext, ...). To follow the reading progress, use EmailProgressBar.
2. Read the content of the email structure (see the example below).
3. If variable Email.HTML is not empty: message is in HTML format. It must be displayed in a browser.
   For each attached file (the Email.NbAttach variable is not empty):
   • Save the file on disk (EmailSaveAttachment).
   • Browse the HTML message and find the "cID:"+Email.AttachIdentifier value of the attached file. Replace this value by the full path of attached file copied on disk.
   • Display the message in a browser.
4. If the Email.HTML variable is empty: the message is in text format.
5. Save the attached files on disk if necessary and display the message text.

Example

Repert_Temp is string = "C:\temp\"
CID is string
I is int

// Pour chaque fichier attaché
FOR I = 1 TO Email.NbAttach
	// Copier le fichier dans un répertoire temporaire 
	EmailSaveAttachment(Email.Attach[I], ...
			Repert_Temp + Email.Attach[I])
	// Récupérer l'identifiant du fichier attaché dans le mail
	CID = "cid:" + Email.AttachIdentifier[I]
	// Remplacer les références au fichier attaché 
	// par le nom réel du fichier
	Email.HTML = Replace(Email.HTML, CID, "file:" + ...
			Repert_Temp + Email.Attach[I])
END

// Afficher le contenu HTML dans un Browser WEB
// Créer un fichier temporaire contenant le HTML
NomFic is string = Repert_Temp + "temp.htm"
hFic is int = fOpen(NomFic, foCreate + foWrite)
fWrite(hFic, Email.HTML, Length(Email.HTML))
fClose(hFic)

// Fournir le fichier HTML temporaire au browser
// navigateur_WEB est un champ ActiveX "Microsoft Web Browser"
navigateur_WEB>>Navigate(NomFic)