// Répertoire temporaire de génération de l'email
sRepTemp est une chaîne = fFichierTemp("CDE")
fRepCrée(sRepTemp)

// Fichier temporaire de génération de l'email
sFichierHTML est une chaîne = sRepTemp+["\"]+"etat.html"

// Génération du HTML
iDestination(iHTMLGénérique,sFichierHTML)
iImprimeEtat(ETAT_Mail_Paiement,gsLignecde,"destinataire@orange.fr")

// Charge le HTML
sHTML est une chaîne ANSI = fChargeBuffer(sFichierHTML)

// Ajoute une balise DIV pour centrer le contenu
nPosDebutBody est un entier = Position(sHTML,"<body")
nPosFinBody est un entier = Position(sHTML,">",nPosDebutBody)
sHTML[[nPosFinBody]] = "><div style=""position:relative;width: 670px;margin-left: auto;margin-right: auto;""><div style=""position:relative;width: 670px;left:-23.72mm"">"
sHTML = Remplace(sHTML,"</body>","</div></body>")
fSauveTexte(sFichierHTML,sHTML)

// Création de l'email
cMel est un Email
EmailImporteHTML(cMel,sHTML,fExtraitChemin(sFichierHTML,fDisque+fRépertoire))
cMel.Sujet = ChaîneConstruit("Confirmation de votre commande (n°%1) ",gsLignecde)
cMel.Expediteur = "info_validation@test.com"
cMel.Destinataire[1] = "destinataire@orange.fr"
cMel.TexteBrut = GenereEmailTexteBrut(gsLignecde,"destinataire@orange.fr")

// Envoi de l'email
cSession est un EmailSessionSMTP
cSession.AdresseServeur = "smtp.orange.fr"
EmailOuvreSession(cSession)
EmailEnvoieMessage(cSession,cMel)
EmailFermeSession(cSession)

// Suppression des fichiers temporaires
fRepSupprime(sRepTemp,frRécursif)