Comment changer automatiquement la signature en fonction des destinataires dans Outlook ?

Par défaut, Outlook dispose d'une fonction intégrée permettant aux utilisateurs de changer automatiquement de signature lors de l'envoi d'e-mails via différents comptes e-mail. Mais au-delà de cela, je vais ici vous montrer une méthode pour changer automatiquement la signature en fonction des différents destinataires dans le champ À d'Outlook.

Changer automatiquement la signature en fonction des destinataires avec un code VBA

Changer automatiquement la signature en fonction des destinataires avec un code VBA

Veuillez suivre les étapes ci-dessous pour appliquer différentes signatures aux destinataires correspondants lors de l'envoi d'e-mails dans Outlook.

1. Tout d'abord, vous devez désactiver la fonction de signature auto-attachée dans Outlook. Cliquez sur Fichier > Options pour ouvrir la fenêtre Options Outlook.

2. Dans la fenêtre Options Outlook, sélectionnez Mail dans le volet gauche, puis cliquez sur le bouton Signatures dans la section Composer des messages. Voir capture d'écran :

3. Dans la boîte de dialogue Signatures et papier à lettres, allez dans la section Choisir la signature par défaut sous l'onglet Signature E-mail, sélectionnez un compte e-mail dans la liste déroulante Compte-e-mail, puis choisissez (aucun) dans les listes déroulantes Nouveaux messages et Réponses/transferts. Répétez ces étapes jusqu'à ce que tous les comptes e-mail soient définis sur (aucun). Ensuite, cliquez sur le bouton OK.

Remarque : Vous pouvez également créer les signatures nécessaires dans cette boîte de dialogue Signatures et papier à lettres.

4. Cliquez sur le bouton OK lorsque vous revenez à la fenêtre Options Outlook.

5. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

6. Dans la fenêtre Microsoft Visual Basic for Applications, double-cliquez sur ThisOutlookSession dans le volet gauche pour ouvrir la fenêtre Code, puis copiez le code VBA ci-dessous dans la fenêtre. Voir capture d'écran :

Code VBA : Changer automatiquement la signature en fonction des destinataires dans Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
    If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
        xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
    Else
        xRcpAddress = xRecipient.AddressEntry.Address
    End If
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
            Exit For
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
            Exit For
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
            Exit For
    End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
    xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
    With xDoc.Application.Selection.Find
        .ClearFormatting
        .Text = xFindStr
        .Execute Forward:=True
    End With
    With xDoc.Application.Selection
        .MoveLeft wdCharacter, 2
        .InsertParagraphAfter
        .MoveDown Unit:=wdLine, Count:=1
    End With
Else
    With xDoc.Application.Selection
        .EndKey Unit:=wdStory, Extend:=wdMove
        .InsertParagraphAfter
        .MoveDown Unit:=wdLine, Count:=1
    End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub

Remarques :

• 1). Dans le code VBA, remplacez « Adresse E-mail 1/2/3/4 » par les adresses e-mail spécifiques des destinataires.
• 2). « aaa.htm », « bbb.htm » et « ccc.htm » sont les signatures spécifiées que vous enverrez aux destinataires correspondants.
• 3). Dans ce cas, la signature « aaa » sera envoyée à « Adresse E-mail 1 », la signature « bbb » sera envoyée à « Adresse E-mail 2 » et « Adresse E-mail 3", et « Adresse E-mail 4 » recevra l'e-mail contenant la signature « ccc ». Veuillez les modifier selon vos besoins.
• 4). S'il y a plusieurs destinataires dans un e-mail, le code ne prend en compte que le premier destinataire. Dans ce cas, les autres destinataires recevront les e-mails avec la même signature que le premier destinataire.

7. Ensuite, cliquez sur Outils > Références pour accéder à la boîte de dialogue Références-Projet. Dans la boîte de dialogue, cochez à la fois les options Bibliothèque d'objets Microsoft Word et Runtime Scripting Microsoft, puis cliquez sur le bouton OK, voir capture d'écran :

8. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

Dès maintenant, après avoir rédigé un e-mail et appuyé sur le bouton Envoyer, la signature correspondante sera automatiquement insérée à la fin du corps de l'e-mail en fonction de l'adresse e-mail du destinataire dans le champ À.

---

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance une version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Utilise une technologie avancée d’intelligence artificielle pour gérer vos emails en toute simplicité, notamment répondre, résumer, optimiser, étendre, traduire et rédiger des emails.

📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...

📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...

🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...

Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez plus, téléchargez maintenant et augmentez votre productivité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Acheter