Wie füge ich mehreren E-Mail-Konten unterschiedliche Signaturen hinzu, wenn ich eine neue E-Mail in Outlook erstelle?
Aus der Anleitung: E-Mail-Signaturen in Outlook, sollten Sie wissen, wie man eine Signatur in Outlook erstellt. Nach dem Erstellen einer neuen Signatur müssen Sie die erstellte Signatur jedoch manuell zu einer neuen Nachricht hinzufügen, indem Sie auswählen Signature > Die erstellte Signatur im Nachrichtenfenster.
Natürlich können Sie Outlook automatisch eine Signatur hinzufügen lassen, wenn Sie eine neue Nachricht erstellen, indem Sie auf klicken Signature > Unterschriften, und wählen Sie eine Signatur für ein bestimmtes E-Mail-Konto aus, wie unten gezeigt.
Was ist jedoch, wenn Sie viele E-Mail-Konten haben und verschiedene Signaturen für Ihre mehreren Konten in Stapeln hinzufügen möchten? In diesem Tutorial stelle ich eine VBA-Methode vor, mit der Sie diese Aufgabe einfach erledigen können.
Fügen Sie mehreren E-Mail-Konten unterschiedliche Signaturen hinzu, wenn Sie eine neue E-Mail in Outlook erstellen
1. Drücken Sie in Ihrem Outlook auf Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.
2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf DieseOutlookSession im Projektbereich und kopieren Sie den folgenden VBA-Code in das Fenster ThisOutlookSession (Code). Siehe Screenshot:
VBA-Code: Fügen Sie mehreren E-Mail-Konten unterschiedliche Signaturen hinzu, wenn Sie eine neue E-Mail in Outlook erstellen - ThisOutlookSession
Public WithEvents GInspectors As Inspectors
Public WithEvents GExplorer As Explorer
Private Sub Application_Startup()
Set GInspectors = Application.Inspectors
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
‘Update by ExtendOffice
Dim xMail As MailItem
On Error Resume Next
EndTimer
If Item.Class = olMail Then
Set xMail = Item
Set GInspector = Nothing
Set GInspector = xMail.GetInspector
StartTimer
End If
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
On Error Resume Next
EndTimer
Set GInspector = Nothing
Set GInspector = Inspector
StartTimer
End Sub
3. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.
VBA-Code: Fügen Sie mehreren E-Mail-Konten unterschiedliche Signaturen hinzu, wenn Sie eine neue E-Mail im Outlook-Modul erstellen
Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public GInspector As Inspector
Sub StartTimer()
On Error Resume Next
TimerID = SetTimer(0&, 0&, 1000&, AddressOf TimerProc)
End Sub
Sub EndTimer()
On Error Resume Next
KillTimer 0&, TimerID
End Sub
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
On Error Resume Next
Call SetSignatureToAccount
EndTimer
End Sub
Sub SetSignatureToAccount()
‘Update by ExtendOffice
Dim xMail As MailItem
Dim xSignatureFile, xSignaturePath As String
Dim xSubject As String
Dim xDoc As Document
Dim xAccount As Account
Dim xIsNew As Boolean
Dim xInspector As Inspector
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
xSubject = GInspector.Caption
Set xDoc = GInspector.WordEditor
xIsNew = False
Set xMail = GInspector.CurrentItem
Select Case xMail.Parent.Parent
Case "" 'Replace the email address in double quotes
If VBA.InStr(xSubject, "RE: ") = 1 Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") = 1 Then
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name
xIsNew = True
End If
Case "" 'Replace the email address in double quotes
If VBA.InStr(xSubject, "RE: ") Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") Then
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name
xIsNew = True
End If
'Add more Cases for more email accounts
End Select
If xIsNew = True Then
With xDoc.Application.Selection
.WholeStory
.EndKey
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End With
Else
With xDoc.Application.Selection
.MoveRight Unit:=wdCharacter, Count:=1
.HomeKey Emptyparam, Emptyparam
.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End With
End If
Set xDoc = Nothing
Set GInspector = Nothing
Set xMail = Nothing
End Sub
- 1) Sie sollten die ersetzen und in der 39. und 48. Zeile an Ihre tatsächlichen E-Mail-Adressen.
- 2) Sie sollten ersetzen Unterschrift1 und Unterschrift2 in der 45. und 54. Zeile zu Ihren tatsächlichen Unterschriftsnamen.
- 3) Mit dem obigen VBA-Code können wir Signaturen zu zwei E-Mail-Konten hinzufügen. Wenn Sie mehr Konten haben, ersetzen Sie die 57. Zeile des Codes durch mehr Fälle:
Wenn VBA.InStr(xSubject, "RE:") = 1 Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW:") = 1 Then
Exit Sub
sonst
xSignatureFile = xSignaturePath & "Signatur.htm"
xIsNew = True
End If
4. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Tools
> BibliographieAktivieren Sie das Kontrollkästchen neben Microsoft Word 16.0-ObjektbibliothekUnd klicken Sie auf OK.
5. Starten Sie Outlook neu und speichern Sie die VBA-Codes.
6. Wenn Sie nun eine neue Nachricht mit einem E-Mail-Konto erstellen, für das Sie eine Signatur eingerichtet haben, wird die entsprechende Signatur automatisch hinzugefügt.
Hinweis: Wenn Sie feststellen, dass beim Erstellen einer neuen Nachricht mit einem E-Mail-Konto zwei Signaturen hinzugefügt wurden, klicken Sie bitte auf Signature > Unterschriften im Nachrichtenfenster. Wählen Sie im Abschnitt Standardsignatur auswählen das E-Mail-Konto mit zwei Signaturen aus und wählen Sie aus (Keine) aus der Dropdown-Liste Neue Nachrichten.
In Verbindung stehende Artikel
Wie importiert oder fügt man HTML-Signaturen in Outlook ein?
Sie haben beispielsweise einige HTML-Signaturen von Websites heruntergeladen und möchten diese in Ihr Outlook importieren. Irgendwelche einfachen Wege? In diesem Artikel erfahren Sie Schritt für Schritt, wie Sie HTML-Signaturen in Outlook importieren oder einfügen.
Wie fügt man Hintergrundfarbe in eine Outlook-Signatur ein?
Es ist einfach, Hintergrundfarbe in einer E-Mail in Outlook hinzuzufügen oder zu entfernen. Aber wie können Sie Hintergrundfarbe in einer Outlook-Signatur einfügen oder entfernen? Die folgenden Problemumgehungen helfen Ihnen bei der Lösung:
Wenn Sie möchten, dass Outlook beim Antworten oder Weiterleiten einer Nachricht automatisch eine Signatur hinzufügt, müssen Sie die Standardsignatur konfigurieren, indem Sie auf Signatur > Signaturen klicken und wie unten gezeigt eine Signatur für ein bestimmtes E-Mail-Konto auswählen. Was ist jedoch, wenn Sie viele E-Mail-Konten haben und verschiedene Signaturen für Ihre mehreren Konten in Stapeln hinzufügen möchten? In diesem Tutorial stelle ich eine VBA-Methode vor, mit der Sie diese Aufgabe einfach erledigen können.
So legen Sie unterschiedliche Signaturen für Antworten und Weiterleitungen in Outlook fest
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?
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.