Comment ajouter sa signature à un mail Outlook

Question

Bonjour à tous,
Bonjour le Forum,

Je souhaiterais que Outlook ajoute ma signature mais je n'ai pas trouvé grand chose sur le net sur ce sujet.

Voici le code qui j'utilise pour envoyer un mail
Dim sFilePath As String
            Dim ext As String
 
            ConvertTabPage_BMP(TabPage1, sFilePath, ext)

Dim Outlook As Outlook.Application
            Dim Mail As Outlook.MailItem
            Dim Acc As Outlook.Account
 
            Outlook = New Outlook.Application()
            Mail = CType(Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem), Outlook.MailItem)
            Mail.To = "essai@essai.com"
            Mail.Subject = "essai ABC"

For Each Acc In Outlook.Session.Accounts
 
                If Acc.AccountType = Microsoft.Office.Interop.Outlook.OlAccountType.olPop3 Then
                    Mail.Sender = CType(Acc, Outlook.AddressEntry)
                End If
            Next

Mail.Attachments.Add("C:\Users\All Users\ABC.jpeg")
 
            '  Mail.HTMLBody = "Bonjour,"

Mail.Body = "Bonjour,
 
Voici les dernières nouvelles.
 
Merci,
 
Cordialement,"
 
            Mail.Display()
        Catch ex As Exception
 
            MessageBox.Show("Opération annulée par l'utilisateur !", "Envoyer un e-mail", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        End Try
    End Sub

Je pense qu'il doit être possible d'ajouter sa signature personnel Outlook

Merci pour votre aide.

dysorthographie · Answer

Bonjour,
Si tu as déjà défini ta signature dans outlook il te suffit de faire

Mail.Body=Mail.Body &  "
Bonjour,
..."

Tempus01 · Answer

Bonsoir,

Merci pour votre code, je viens de le tester,  mais elle n'apparait toujours pas, pourtant ma signature est bien défini dans Outlook.

Comment ajouter sa signature à un mail Outlook

2 réponses

Votre réponse