Wie kann ich die Signatur basierend auf den Empfängern in Outlook automatisch ändern?
Standardmäßig verfügt Outlook über eine integrierte Funktion, mit der Benutzer die Signatur automatisch ändern können, während sie E-Mails über verschiedene E-Mail-Konten senden. Darüber hinaus zeige ich Ihnen hier die Methode zum automatischen Ändern der Signatur basierend auf verschiedenen Empfängern im Feld An in Outlook.
Ändern Sie die Signatur basierend auf den Empfängern automatisch mit VBA-Code
Ändern Sie die Signatur basierend auf den Empfängern automatisch mit VBA-Code
Führen Sie die folgenden Schritte aus, um beim Senden von E-Mails in Outlook unterschiedliche Signaturen auf die entsprechenden Empfänger anzuwenden.
1. Zunächst müssen Sie die Funktion für automatisch angehängte Signaturen in Outlook deaktivieren. bitte klicken Reichen Sie das > Optionen öffnen Outlook-Optionen Fenster.
2. In dem Outlook-Optionen Fenster, wählen Sie Mail Klicken Sie im linken Bereich auf Unterschriften Knopf im Verfassen Sie Nachrichten Sektion. Siehe Screenshot:
3. In dem Signaturen und Schreibwaren Dialogfeld, gehen Sie zu Wählen Sie die Standardsignatur Abschnitt unter dem E-Mail Signatur Wählen Sie auf der Registerkarte ein E-Mail-Konto in der Email-Konto Dropdown-Liste, und wählen Sie dann (Keine) von dem Neue Nachrichten und Antworten / weiterleiten Dropdown-Listen. Wiederholen Sie diese Schritte, bis alle E-Mail-Konten auf eingestellt sind (Keine). Klicken Sie dann auf OK .
Note: Hier können Sie auch die erforderlichen Signaturen erstellen Signaturen und Schreibwaren Dialogbox.
4. Klicken Sie auf die OK Schaltfläche, wenn die zurückgegeben wird Outlook-Optionen Fenster.
5. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
6. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession im linken Bereich, um das Code-Fenster zu öffnen, und die Kopie unter dem VBA-Code in das Fenster. Siehe Screenshot:
VBA-Code: Ändern Sie die Signatur automatisch basierend auf den Empfängern in Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
Notizen:
- 1). Ersetzen Sie im VBA-Code bitte das “E-Mail-Adresse 1/2/3/4”Mit den bestimmten E-Mail-Adressen der Empfänger.
- 2). ""aaa.htm""bbb.htm" und "ccc.htm" sind die angegebenen Signaturen, die Sie an die entsprechenden Empfänger senden.
- 3). In diesem Fall Unterschrift “aaaWird an gesendetE-Mail-Adresse 1", Unterschrift "bbbWird an gesendetE-Mail-Adresse 2" und "E-Mail-Adresse 3" , und "E-Mail-Adresse 4"Erhält die mit Unterschrift eingebettete E-Mail"ccc”. Bitte ändern Sie sie entsprechend Ihren Anforderungen.
- 4). Bei mehreren Empfängern in einer E-Mail berücksichtigt der Code nur den ersten Empfänger. In diesem Fall erhalten andere Empfänger die E-Mails mit der gleichen Signatur wie der erste Empfänger.
7. Dann klick Tools > Bibliographie auf dem Sprung Referenzen-Projekt Dialogbox. Überprüfen Sie im Dialog beide Microsoft Word-Objektbibliothek und für Microsoft Scripting-Laufzeit Optionen, und klicken Sie dann auf OK Schaltfläche, siehe Screenshot:
8. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Von nun an wird nach dem Verfassen einer E-Mail und dem Klicken auf die Schaltfläche Senden die entsprechende Signatur automatisch am Ende des E-Mail-Textes eingefügt, basierend auf der E-Mail-Adresse des Empfängers im Feld An.
Beim Senden von E-Mails in Outlook automatisch das aktuelle Datum als Signatur einfügen:
Wenn Sie beim Erstellen / Beantworten / Weiterleiten neuer E-Mails in Ihrem Outlook einen Zeitstempel als Signatur in den E-Mail-Text einfügen möchten, können Sie den aktivieren Fügen Sie beim Erstellen neuer Daten eine Datumssignatur hinzu, antworten Sie und leiten Sie E-Mails weiter Option Kutools for Outlook um es zu erreichen. Siehe Screenshot:
Laden Sie es jetzt herunter und probieren Sie es aus (60 Tage kostenloser Test)
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.