Comment définir des signatures distinctes pour les réponses et les transferts dans Outlook ?

Normalement, vous pouvez définir des signatures différentes pour chaque compte dans Outlook, mais avez-vous déjà envisagé d’attribuer des signatures distinctes aux réponses et aux transferts ? Cela signifie qu’en répondant à un e-mail, la signature1 s’insère automatiquement, tandis que la signature2 est utilisée lors d’un transfert. Comment réaliser cette opération dans Outlook ?

Définir des signatures différentes pour les réponses et les transferts à l’aide d’un code VBA

---

Définir des signatures différentes pour les réponses et les transferts à l’aide d’un code VBA

Le code VBA suivant vous permet de définir des signatures distinctes pour les réponses et les transferts. Suivez pas à pas les étapes ci-dessous :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans le module vide qui s’ouvre. Voir la capture d’écran :

Code VBA : Définir des signatures différentes pour les réponses et les transferts:

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
    Set GFSO = New Scripting.FileSystemObject
End Sub
Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
    InsertSignature Response, "Signature1.htm"   'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    InsertSignature Forward, " Signature2.htm"    'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
    Dim xSignatureFile As String
    Dim xMailItem As Outlook.MailItem
    xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
    xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
    Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
    GText = ""
    GText = GTextStream.ReadAll
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    With xMailItem
        .Display
        .HTMLBody = .HTMLBody & "<br><br>" & GText
    End With
End Sub

Remarque : Dans le code ci-dessus, Signature1 et Signature2 sont les noms des deux signatures que vous souhaitez utiliser respectivement pour répondre et transférer. Veuillez adapter ces noms selon vos besoins.

3. Toujours dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Outils > Références pour ouvrir la boîte de dialogue Références - Projet1, puis cochez l’option Microsoft Scripting Runtime dans la liste Références disponibles. Voir la capture d’écran :

4. Cliquez ensuite sur OK pour fermer la boîte de dialogue. Désormais, chaque fois que vous répondez à un e-mail, Signature1 sera insérée automatiquement. Voir la capture d’écran :

Et lorsque vous transférez un message, Signature2 sera insérée comme illustré dans la capture d’écran suivante :