Insérer signature dans HTML pour automation

Bonjour à tous,

Je voudrais savoir comment faire pour insérer un <Div> en fin de page html de facon automatique à la fin d'un champ mémo en texte enrichi, ceci pour simuler une signature avant automation Access ==> Outlook.

J'ai donc un champ mémo [BodyHtml] qui sert au corps du mail et un champ mémo [BodySignatureHtml] provenant d'une table [tblSignaturesMails] qui permettra de composer différentes signatures...

Le hic est de savoir comment incruster et désincruster le contenu du champ signature en tant que <Div> depuis VBA en pied du champ mémo nommé [BodyHtml] (et ce, au bon endroit).

Merci d'avance

Bonjour clickandgo
Je pense qu'il est plus facile de créer des signatures (autant que tu veux) ,avec world puis les enregistrer avec l'extension htm.
Ensuite ,dans un module, tu places cette fonction:

Code:

---

1 2 3 4 5 6 7 8

Public Function LireSignature(ByVal sFile As String) As String Dim fso As Scripting.FileSystemObject Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) LireSignature = ts.ReadAll ts.Close End Function

---

puis dans ta procédure d'envoie Access ,après avoir défini tes objt Outlook et olmail ,tu "lis" la signature avec:

Code:

---

1 2	StrSign = Ton dossier & "\Nom de ta signature.htm" strFormatSign = LireSignature(StrSign)]

---

et ensuite ,à la fin de ton corps de message :

Code:

---

.HTMLBody = " Bonjour , ceci est un exemple de signature. Cordialement" & Chr(13) & Chr(10) & strFormatSign

---

.
Cdlt

Merci pour ta réponse mais je préférerai faire un copier/coller d'une signature venant d'un champ mémo en texte enrichi depuis un bouton vba.

Mais je ne sais pas comment indiquer que le copier/coller se fasse à l'endroit du curseur dans le champ de récéption...
Je suppose qu'il faudra rajouter les balises <Div> et </Div> en même temps ...

J'ai trouvé la solution, il suffit de mettre dans le code VBA d'un bouton :

Code:

---

me.[champmemo1]=me.[champmemo1]& vbcrlf & vbcrlf & [me.champmemo2]

---

ChampMemo1 étant le corps du mail dans lequel on insère la signature contenue dans le [ChampMemo2], quoi de plus simple ? :)

(Tout le formatage de la signature est valide après automation !)