Discussion :

[clickandgo]

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

[Thierry_PALLIER]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

.
Cdlt

[clickandgo]

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 ...

[clickandgo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !)