[OL-2007] Signature par défaut d'Outlook

[selverine]

Bonjour à tous,

Dans le cadre d'un envoi de mail automatique, je souhaiterais inclure automatiquement la signature par défaut du compte Outlook au mail créé par VBA.

Je ne souhaite pas avoir un fichier text avec des signatures en dur. Il me faudrait vraiment avoir la signature par défaut d'Outlook.

Est-ce possible? Si oui comment?
J'ai déjà essayé la commande .GetInspector sans résultat (peut être que je l'ai mal utilisé).

Voici mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim Monoutlook As Object
Dim monmessage As Object
 
 
Set Monoutlook = CreateObject("Outlook.application")
Set monMail = Monoutlook.createitem(olMailItem)
 
 
 signature = monMail .GetInspector
'- Marche pas
 
monMail .to = Texte10
monMail .subject = Texte16
monMail .htmlbody = Texte11 & " " & Texte23 & ", " & "<br>" & "<br>" & Texte12 & " " & "<br>" & signature & "<br>"
 
Set oInsp = monMail .GetInspector
'- Marche pas
 
 
monMail .display

Merci par avance!

[helas]

Bonjour,
à insérer après Display

Code :

1
2
 
signature.CommandBars.ActiveMenuBar.Controls("&Insertion").Controls("&Signature").Controls("NomSignature").Execute

mais je n'ai pas trouvé à la placer à la bonne place.
La question serait alors comment se positionner à la fin du texte ?