Comment définir différentes signatures pour les réponses et les transferts dans Outlook?
Normalement, vous pouvez définir différentes signatures pour différents comptes dans votre Outlook, mais vous avez déjà essayé d'appliquer différentes signatures pour les réponses et les transferts. Cela signifie que lorsque vous répondez à un e-mail, la signature1 est insérée, lorsque vous transférez un e-mail, la signature2 est appliquée. Comment pourriez-vous résoudre cette tâche dans Outlook?
Définissez différentes signatures pour les réponses et les transferts avec le code VBA
Définissez différentes signatures pour les réponses et les transferts avec le code VBA
Le code VBA suivant peut vous aider à définir différentes signatures pour les réponses et les transferts, veuillez suivre les étapes ci-dessous une par une:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Puis clique insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:
Code VBA: définir différentes signatures 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
Notes: Dans le code ci-dessus, Signature1 et Signature2 sont les deux noms de signature que vous souhaitez utiliser pour la réponse et le transfert. Veuillez modifier les noms selon vos besoins.
3. Toujours dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Bibliographie pour aller à la Références-Projet1 boîte de dialogue et cochez Exécution de scripts Microsoft Option de Références disponibles zone de liste, voir capture d'écran:
4. Et puis cliquez OK pour fermer la boîte de dialogue, à partir de maintenant, lorsque vous répondez à un e-mail, Signature1 sera insérée immédiatement, voir capture d'écran:
Et lorsque vous transférez un message, Signature2 sera inséré comme la capture d'écran suivante:
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.