Πώς να αλλάξετε αυτόματα την υπογραφή βάσει παραληπτών στο Outlook;

Από προεπιλογή, το Outlook διαθέτει μια ενσωματωμένη λειτουργία για τους χρήστες να αλλάζουν αυτόματα την υπογραφή τους κατά την αποστολή email μέσω διαφορετικών λογαριασμών email. Αλλά πέρα ​​από αυτό, εδώ θα σας δείξω μέθοδο αυτόματης αλλαγής υπογραφής βάσει διαφορετικών παραληπτών στο πεδίο Προς στο Outlook.

Αλλάξτε αυτόματα την υπογραφή με βάση τους παραλήπτες με τον κωδικό VBA

Αλλάξτε αυτόματα την υπογραφή με βάση τους παραλήπτες με τον κωδικό VBA

Ακολουθήστε τα παρακάτω βήματα για να εφαρμόσετε διαφορετικές υπογραφές στους αντίστοιχους παραλήπτες κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου στο Outlook.

1. Πρώτον, πρέπει να απενεργοποιήσετε τη δυνατότητα αυτόματης επισύναψης υπογραφής στο Outlook. Παρακαλώ πατήστε φιλέτο > Επιλογές για να ανοίξετε το Επιλογές του Outlook παράθυρο.

2. Στο Επιλογές του Outlook παράθυρο, επιλέξτε Ταχυδρομείο στο αριστερό παράθυρο και, στη συνέχεια, κάντε κλικ στο Υπογραφές στο κουμπί Σύνταξη μηνυμάτων Ενότητα. Δείτε το στιγμιότυπο οθόνης:

3. Στο Υπογραφές και χαρτικά πλαίσιο διαλόγου, μεταβείτε στο Επιλέξτε την προεπιλεγμένη υπογραφή ενότητα κάτω από το Υπογραφή ηλεκτρονικού ταχυδρομείου καρτέλα, επιλέξτε έναν λογαριασμό email στο Λογαριασμός ηλεκτρονικού ταχυδρομείου αναπτυσσόμενη λίστα και, στη συνέχεια, επιλέξτε (Κανένας) από το Νέα μηνύματα και Απαντήσεις / προωθήσεις αναπτυσσόμενες λίστες. Επαναλάβετε αυτά τα βήματα έως ότου οριστούν όλοι οι λογαριασμοί email (Κανένας). Στη συνέχεια, κάντε κλικ στο OK κουμπί.

Note: Μπορείτε επίσης να δημιουργήσετε τις απαραίτητες υπογραφές σας σε αυτό Υπογραφές και χαρτικά κουτί διαλόγου.

4. Κάντε κλικ στο κουμπί OK κουμπί όταν επιστρέφει το Επιλογές του Outlook παράθυρο.

5. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

6. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession στο αριστερό παράθυρο για να ανοίξετε το παράθυρο Κωδικός και το αντίγραφο κάτω από τον κώδικα VBA στο παράθυρο. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Αλλάξτε αυτόματα την υπογραφή βάσει παραληπτών στο 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

Notes:

• 1). Στον κωδικό VBA, αντικαταστήστε το "Διεύθυνση email 1/2/3/4"Με τις συγκεκριμένες διευθύνσεις email των παραληπτών.
• 2). "αaa.htm""bbb.htm"Και"ccc.htm" είναι οι καθορισμένες υπογραφές που θα στείλετε στους αντίστοιχους παραλήπτες.
• 3). Σε αυτήν την περίπτωση, υπογραφή "ααα"Θα σταλεί στο"Διεύθυνση email 1", υπογραφή "bbb"Θα σταλεί στο"Διεύθυνση email 2"Και"Διεύθυνση email 3", και "Διεύθυνση email 4"Θα λάβει το email ενσωματωμένο με υπογραφή"ccc". Αλλάξτε τα ανάλογα με τις ανάγκες σας.
• 4). Εάν υπάρχουν πολλοί παραλήπτες σε ένα email, ο κωδικός λαμβάνει υπόψη μόνο τον πρώτο παραλήπτη. Σε αυτήν την περίπτωση, άλλοι παραλήπτες θα λάβουν τα email με την ίδια υπογραφή με τον πρώτο παραλήπτη.

7. Στη συνέχεια κάντε κλικ στο κουμπί Εργαλεία > αναφορές για να μεταβείτε στο Αναφορές-Έργο κουτί διαλόγου. Στο παράθυρο διαλόγου, ελέγξτε και τα δύο Βιβλιοθήκη αντικειμένων του Microsoft Word και το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft επιλογές και, στη συνέχεια, κάντε κλικ στο OK κουμπί, δείτε το στιγμιότυπο οθόνης:

8. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Από τώρα και στο εξής, αφού συνθέσετε ένα email και πατήσετε το κουμπί Αποστολή, η αντίστοιχη υπογραφή θα εισαχθεί αυτόματα στο τέλος του σώματος email με βάση τη διεύθυνση email του παραλήπτη στο πεδίο Προς.

---

Kutools for Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει τη δουλειά πολύ πιο εύκολη!

• Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
• Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
• Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
• Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
• Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.

Διαβάστε περισσότερα ... Κατεβάστε τώρα...