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 modifier automatiquement la signature lors de l'envoi d'e-mails via différents comptes de messagerie. Mais au-delà de cela, je vais vous montrer ici la méthode de modification automatique de la signature en fonction de différents destinataires dans le champ À dans Outlook.

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

Changer la signature en fonction des destinataires automatiquement avec le 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 fonctionnalité de signature automatique dans Outlook. Cliquez s'il vous plait Déposez votre dernière attestation > Options ouvrir le Options d'Outlook fenêtre.

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

3. dans le Signatures et papeterie boîte de dialogue, accédez à Choisissez la signature par défaut section sous la Signature par e-mail , sélectionnez un compte de messagerie dans le Compte email liste déroulante, puis choisissez (Aucun) du Nouveaux messages et Réponses / transferts listes déroulantes. Répétez ces étapes jusqu'à ce que tous les comptes de messagerie soient définis sur (Aucun). Puis cliquez sur le OK .

Notes: Vous pouvez également créer les signatures nécessaires dans ce Signatures et papeterie boite de dialogue.

4. Cliquez sur l' OK bouton quand il renvoie le Options d'Outlook fenêtre.

5. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

6. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook dans le volet gauche pour ouvrir la fenêtre Code, et la copie sous le code VBA dans la fenêtre. Voir la capture d'écran:

Code VBA: modifier 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

Notes:

• 1). Dans le code VBA, veuillez remplacer le "Adresse e-mail 1/2/3/4”Avec certaines adresses e-mail 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é à"Adresse e-mail 1", Signature "bbb"Sera envoyé à"Adresse e-mail 2" et "Adresse e-mail 3 », et "Adresse e-mail 4"Recevra l'e-mail avec signature"ccc». Veuillez les modifier en fonction de 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. Puis clique Outils > Bibliographie pour aller à la Références-Projet boite de dialogue. Dans la boîte de dialogue, veuillez vérifier les deux Bibliothèque d'objets Microsoft Word et par Exécution de scripts Microsoft options, puis cliquez sur OK bouton, voir capture d'écran:

8. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

Désormais, 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é bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat