Wie kann man unterschiedliche Signaturen für Antworten und Weiterleitungen in Outlook einstellen?
Normalerweise können Sie unterschiedliche Signaturen für verschiedene Konten in Ihrem Outlook einstellen, aber haben Sie jemals versucht, unterschiedliche Signaturen für Antworten und Weiterleitungen zu verwenden? Das bedeutet, wenn Sie auf eine E-Mail antworten, wird Signatur1 eingefügt, und wenn Sie eine E-Mail weiterleiten, wird Signatur2 angewendet. Wie könnten Sie diese Aufgabe in Outlook lösen?
Unterschiedliche Signaturen für Antworten und Weiterleitungen mit VBA-Code einstellen
Unterschiedliche Signaturen für Antworten und Weiterleitungen mit VBA-Code einstellen
Der folgende VBA-Code kann Ihnen helfen, unterschiedliche Signaturen für Antworten und Weiterleitungen einzustellen. Bitte führen Sie die nachfolgenden Schritte nacheinander aus:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie dann auf Einfügen > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:
VBA-Code: Unterschiedliche Signaturen für Antworten und Weiterleitungen festlegen:
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
Hinweis: Im obigen Code sind Signatur1 und Signatur2 die Namen der beiden Signaturen, die Sie für Antworten und Weiterleitungen verwenden möchten. Ändern Sie die Namen entsprechend Ihren Anforderungen.
3. Noch im Fenster Microsoft Visual Basic for Applications klicken Sie auf Extras > Verweise, um zum Dialogfeld Verweise - Projekt1 zu gelangen, und aktivieren Sie die Option Microsoft Scripting Runtime aus der Liste der verfügbaren Verweise, siehe Screenshot:
4. Klicken Sie anschließend auf OK, um das Dialogfeld zu schließen. Von nun an wird beim Antworten auf eine E-Mail automatisch Signatur1 eingefügt, siehe Screenshot:
Und wenn Sie eine Nachricht weiterleiten, wird Signatur2 wie im folgenden Screenshot dargestellt eingefügt:
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
