Ajouter une signature à une macro source

Bonjour,

Je ne suis pas certain d'avoir bien compris...
Pour inclure une signature, voici comment je procède

Code:

1
2
3
4
5
6
7
8
9
10
    Set OutlookApp = CreateObject("Outlook.Application")
    Set NewMail = OutlookApp.CreateItem(0)  'Crée un message
    NewMail.Display   'affiche le message avec la signature par défaut
    NewMail.To = MailTo
    NewMail.Subject = "Test"
    NewMail.HTMLBody = "<HTML><BODY><PRE><FONT SIZE=2>" & "Test du body" & "</FONT></PRE></BODY></HTML>" & NewMail.HTMLBody  'on ajoute le corps du message + le body existant qui contient la signature
'        NewMail.Attachments.Add "C:\" & Fichier  'au besoin
'    NewMail.Attachments.Add ThisWorkbook.Path & "\" & Chemin & "\" & Fichier
'    NewMail.Display  'affiche le message sans l'envoyer
    NewMail.Send   'envoie le message