• the Email structure, which allows you to easily handle messages.
  In this case, to write an email, you must use the different variables of Email structure.
• the advanced Email type, which offers advanced functionalities (data binding, serialization, multiple instances, etc.).
  In this case, to write an email, you must declare and initialize a variable of type Email. The possible attachments will be declared in the emailAttach variables and added to the Attach property of the Email variable.

Writing an email with an Email variable

1. Declare and initialize a variable of type Email by specifying the recipients and subject with the Recipient, Cc, Bcc and Subject properties, for example.
   To manage a conversation follow-up, specify the MessageID property as well.
2. If the email is in text format:
   • Initialize the Message property with the text of the email.
   • Specify the attached files if necessary by declaring variables of type emailAttach and adding them to the Attach property of the variable representing the email.
3. If the Email is in HTML format format, use the EmailImportHTML function to initialize the various properties of the Email. If the email contains images or media files, they will be automatically added in attachment and the content of HTML email will be modified to support the attachments.
   
4. Specify additional headers if necessary via the Header property.
5. Send the email with EmailSendMessage. If the subject (or one of the email elements) contains special characters or accented characters, use the emailOptionEncodeHeader constant when the message is sent by EmailSendMessage. The email is sent to the server. The server stores the email until the session is closed. During this closing, the email is actually sent to the recipients.

Writing an email with the Email structure

1. Initialize the Email structure by specifying the recipients and subject with the Email.Recipient, Email.NbRecipient, Email.NbCc, Email.Cc and Email.Subject variables, for example.
   To follow the progress of conversion, fill Email.MessageID.
2. If the email is in HTML format:
   • 1st case: the EmailImportHTML function is available:
     • Use EmailImportHTML to initialize the different variables of Email structure.
   • 2nd case: the EmailImportHTML function is not available:
     • Initialize the Email.Message and Email.HTML variables.
       Note: For e-mail systems that cannot read HTML-formatted e-mails, it is advisable to set the message in text format.
     • Analyze the HTML message to detect all media files included in the message.
     • For each media file found:
       • Create an attached file. This attached file corresponds to the media file (Email.Attach and Email.NbAttach variables).
       • Create an identifier (Email.AttachIdentifier). This identifier must have the following format "wdcid"+number of attached file. For example, WDCID5 if the corresponding file is the fifth attached file.
       • Find the multimedia file in the HTML message and replace its name with the string: "cid: "+Email.AttachID.
         For example:
         Original HTML code: <IMG src="C:\MesImages\Image.gif">
         HTML code replaced: <IMG src="cid:WDCID5">
3. Send the email with EmailSendMessage.
   Note: If the subject (or any element of the Email) contains special characters or accents, use the constant emailOptionEncodeHead when sending the message with the EmailSendMessage function.

Example that uses the Email structure

PROCEDURE SetFichierAttache(NomFichier, Indice)
Email.Attach[Indice] = NomFichier
Email.NbAttach ++
// Remplacer dans Email.HTML toutes les références aux fichiers attachés 
// par l'identifiant cid
CID is string = "cid:wdcid" + Indice
// Le fichier html n'a pas forcément été créé dans le répertoire en cours
// Il peut référencer les fichiers attachés dans des chemins quelconques
// On extrait donc le nom du fichier sans chemin
NomSimple is string = fExtractPath(NomFichier, fFile + fExtension)
// Rechercher le nom du fichier dans Email.HTML
Pos is int = 0
PosDébut, PosFin are int
SousChaîne is string
Pos = Position(Email.HTML, NomSimple, Pos)
IF Pos <> 0 THEN
	PosFin = Pos + Length(NomSimple)
	// Rechercher la position du début de la référence
	// Rechercher le délimiteur "
	Pos --
	SousChaîne = Email.HTML[[Pos]]
	WHILE Pos > 1 AND SousChaîne <> """"
	   Pos --
	   SousChaîne = Email.HTML[[Pos]]
	END
	PosDébut = Pos + 1
	// Remplacer
	SousChaîne = Middle(Email.HTML, PosDébut, PosFin - PosDébut)
	Email.HTML = Replace(Email.HTML, SousChaîne, CID)
END