Ajouter sa signature à un mail Outlook

Version imprimable

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    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.

04/04/2022, 10h15
popo

Ce ne sont pourtant pas les exemples qui manquent sur le net !!!

https://social.msdn.microsoft.com/Fo...gettingstarted
https://stackoverflow.com/questions/...mail-generated
https://social.msdn.microsoft.com/Fo...rum=outlookdev

Bonjour Popo,

Merci pour les exemples, cala m'a bien aidé, voici le code qui fonctionne pour moi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 Private Function ReadSignature() As String
        ' Dim appDataDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Microsoft\Signatures\Moi_fichiers"
        Dim appDataDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Microsoft\Signatures"
        Dim signature As String = String.Empty
        Dim diInfo As DirectoryInfo = New DirectoryInfo(appDataDir)
 
        If diInfo.Exists Then
              Dim fiSignature As FileInfo() = diInfo.GetFiles("*.htm")
           ' Dim fiSignature As FileInfo() = diInfo.GetFiles("*.txt")
            If fiSignature.Length > 0 Then
                Dim sr As StreamReader = New StreamReader(fiSignature(0).FullName, Encoding.[Default])
                signature = sr.ReadToEnd()
 
                If Not String.IsNullOrEmpty(signature) Then
                    Dim fileName As String = fiSignature(0).Name.Replace(fiSignature(0).Extension, String.Empty)
                    signature = signature.Replace(fileName & "_files/", appDataDir & "/" & fileName & "_files/")
                End If
            End If
        End If
 
        Return signature
    End Function
 
 Dim sFilePath As String
            Dim ext As String
            '  Dim GetInspector As Outlook.Inspector
            sFilePath = "C:\Users\All Users\image.bmp" 
            ext = "bmp"
            ConvertTabPage_BMP(TabPage1, sFilePath, ext)
            Dim Outlook As Outlook.Application
            Dim Mail As Outlook.MailItem
            Dim Acc As Outlook.Account
            ' Dim signature As Outlook.m
            Outlook = New Outlook.Application()
            Mail = CType(Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem), Outlook.MailItem)
            Mail.To = "essai.com"
            Mail.CC = "essai.com"
 
            '  GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
            Mail.Subject = "Sujet"
 
            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\image.bmp")
 
 
             Mail.HTMLBody = "Bonjour," & "<br/>" & "<br/>" & "Voici les documents demandés " & TextBox31.Text  & TextBox2.Text & "<br/>" & "<br/>" & "Cordialement," & "<br/>" & "<br/>" & ReadSignature()

Il y a cependant un petit bémol Outlook n'arrive pas à afficher les images de la signature, seul le texte est visible " impossible d'afficher cette image", comme si le format d'image n'était pas reconnu. Dans m'a signature il y a 3 images 2 BMP et 1 jpg.

15/04/2022, 11h42
popo

Citation:

Envoyé par Tempus01

Il y a cependant un petit bémol Outlook n'arrive pas à afficher les images de la signature, seul le texte est visible " impossible d'afficher cette image", comme si le format d'image n'était pas reconnu. Dans m'a signature il y a 3 images 2 BMP et 1 jpg.

N'oublie pas qu'Outlook s'adapte à la langue ton OS.
Sur un OS en français cette ligne (ligne 16) ne vas pas fonctionner.

Code:

signature = signature.Replace(fileName & "_files/", appDataDir & "/" & fileName & "_files/")

Sur mon poste elle donnerait ceci :
C:\Users\popo\AppData\Roaming\Microsoft\Signatures\Default_files

Alors qu'en réalité le chemin est celui-là :
C:\Users\popo\AppData\Roaming\Microsoft\Signatures\Default_fichiers

Par ailleurs, tu confonds les slash et les antislash, et du coup, tu utilises les deux.
Utilise Path.Combine pour être certain de mettre le bon caractère de séparation.