CreateTemplate (TdbfMailtemplate)
procedure TdbfMailtemplate.CreateTemplate(const iTitle:string; const iClassName:string; const iSubject:string; const iBody:String; iLang:string; iReadOnly:boolean)
Enregistrement d'un modèle de mail.
| Paramètre | Usage |
|---|---|
| iTitle | La libellé du modèle de mail |
| iClassName | La classe associée au mail |
| iSubject | Sujet du mail |
| iBody | Le corps du mail |
| iLang | Language du mail |
| iReadOnly | Ce modèle est en lecture seule |
A l'intérieur du corps du mail il est possible d'introduire des variables [xx] qui seront substituées lors de la génération du mail, ces variables peuvent être :
- Des références à d'autre modèle de mail qui seront alors inclus lors de la génération.
- Des références à des attributs de la classe associée au modèle.
Pour une classe associée à un mail il est possible de définir des variables en utilisant la méthode de classe GetMailProperties
Exemple
//procedure RegisterMailTemplates;
begin
{$SETLINEBREAK}
//
TdbfMailtemplate.CreateTemplate('Mail de relance au tiers payeur','TRelance',
// subject
'(No reply) (Sage FRP 1000) Relance de facture(s) en attente de réglement',
// body
'[mailTemplate(MailHeader)]'
'<div role="content">'
'<h3>A l''attention de [interlocuteurTiersPayeur]</h3>'
'<p>En date du [date]<br></p>'
'<p>Sauf erreur ou omission de notre part, les éléments présentés ci-après restent impayés à ce jour,<br></p>'
'[echeanceList]'
'<p>'
' Montant total à régler : [solde]<br>'
'<br>'
'Pour le compte de la société :<br>'
'[raisonSocialeTiersFacture]<br>'
'[adresseTiersFacture]<br>'
'</p>'
'<p>Veuillez agréer, Madame, Monsieur, nos salutations les meilleures.</p>'
'</div>'
'[mailTemplate(MailFooter)]'
,'fr',True{readOnly});
end;
Voir aussi: