Wie setze ich verschiedene Signaturen für Antworten und Weiterleitungen in Outlook?
Normalerweise können Sie in Ihrem Outlook unterschiedliche Signaturen für unterschiedliche Konten festlegen, haben jedoch jemals versucht, unterschiedliche Signaturen für Antworten und Weiterleitungen anzuwenden. Wenn Sie auf eine E-Mail antworten, wird die Signatur1 eingefügt. Wenn Sie eine E-Mail weiterleiten, wird die Signatur2 angewendet. Wie können Sie diese Aufgabe in Outlook lösen?
Legen Sie unterschiedliche Signaturen für Antworten und Weiterleitungen mit VBA-Code fest
Legen Sie unterschiedliche Signaturen für Antworten und Weiterleitungen mit VBA-Code fest
Der folgende VBA-Code kann Ihnen dabei helfen, verschiedene Signaturen für Antworten und Weiterleitungen festzulegen. Führen Sie die folgenden Schritte nacheinander aus:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Dann klick Insert > Modul, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:
VBA-Code: Legen Sie unterschiedliche Signaturen für Antworten und Weiterleitungen fest:
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
Note: Im obigen Code, Unterschrift1 und Unterschrift2 sind die beiden Signaturnamen, die Sie zum Antworten und Weiterleiten verwenden möchten. Bitte ändern Sie die Namen nach Ihren Wünschen.
3. Immer noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Bibliographie auf dem Sprung Referenzen-Projekt1 Dialogfeld und überprüfen Sie Microsoft Scripting-Laufzeit Option von der Verfügbare Referenzen Listenfeld, siehe Screenshot:
4. Und dann klick OK Um den Dialog von nun an zu schließen, wird Signature1 sofort eingefügt, wenn Sie eine E-Mail beantworten. Siehe Screenshot:
Wenn Sie eine Nachricht weiterleiten, wird Signature2 wie folgt eingefügt:
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.