Discussion :

[leo13]

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 :

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

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.

[gancau]

Bonjour
est-ce que tu as trouvé une réponse ?
Merci d'avance
Gancau