Direkt zum Inhalt

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
Hinweis:
  • 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:
  • Fall ""
    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:

Wie füge ich mehreren E-Mail-Konten unterschiedliche Signaturen hinzu, wenn ich in Outlook antworte oder weiterleite?

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 ProBatch 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.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
I tried to initiate this settings in my outlook for changing the signature automatically, but it doesn't function.

the signature stays the same while using different email accounts.

any idea why ?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations