Envoyer Mail depuis outlook avec Signature
Bonjour a tous,
Je développe une petite appli dans laquelle j'aurais besoin d'envoyer depuis Outlook un mail avec la signature par défaut.
Mon code est le suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Shared Sub OuvrirOutlook(ByVal astrRecip As String, ByVal strMessage As String)
Dim strSubject As String = "subject test"
Dim OutlookApp As New Outlook.Application
Dim MyEMail As Outlook.MailItem = OutlookApp.CreateItem(Outlook.OlItemType.olMailItem)
MyEMail.Recipients.Add(astrRecip)
MyEMail.Subject = strSubject
MyEMail.HTMLBody = strMessage
MyEMail.Display()
End Sub |
Mon problème c'est que lorsque je fait le display de l'Outlook j'ai pas la signature, j'ai seulement le message a envoyé.
Merci pour votre aide.
Cordialement.
