1 2 3 4 5 6 7 8 9 10 11 12
|
Email.Sujet = "Téléchargement de la licence"
Email.Message = "Cher utilisateur,"+ RC + " " + RC + "Votre fichier licence mis à jour est disponible dès à présent sur le site de téléchargement." + RC + " " + RC +...
"Vous pouvez y accéder directement en introduisant directement l'adresse suivante dans votre navigateur internet :" + RC + " " + RC + ...
FEN_FenetreMail.SAI_LienLicence + RC + " " + RC +...
Email.HTML = ""
MonTexteHTML est une chaîne
MonTexteHTML = fChargeTexte("C:\CYC\Licences\MailNumLicenceClient.htm")
MonTexteHTML = Remplace(MonTexteHTML,"Tableau",SAI_Texte_RTF)
MonTexteHTML = Remplace(MonTexteHTML,"Lien",SAI_LienLicence)
MonTexteHTML = Remplace(MonTexteHTML,"Lienbis",SAI_Texte_RTF)
EmailImporteHTML(MonTexteHTML,"C:\CYC\Licences") |
Partager