Πώς να επισημάνετε αυτόματα συγκεκριμένες λέξεις-κλειδιά από εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook

Στο Outlook, ενδέχεται να λαμβάνετε εκατοντάδες και χιλιάδες μηνύματα ηλεκτρονικού ταχυδρομείου κάθε μέρα, θελήσατε ποτέ να επισημάνετε αυτόματα συγκεκριμένες λέξεις-κλειδιά από εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου; Σε αυτό το άρθρο, εισάγω έναν κωδικό VBA για να επισημάνω αυτόματα τις λέξεις-κλειδιά που καθορίζετε από εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook.

Αυτόματη επισήμανση λέξεων-κλειδιών από εισερχόμενα email

Αυτόματη επισήμανση λέξεων-κλειδιών από εισερχόμενα email

Καμία ενσωματωμένη λειτουργία στο Outlook δεν μπορεί να χειριστεί αυτήν την εργασία εκτός από το VBA.

1. Τύπος Alt + F11 κλειδί για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στη συνέχεια, κάντε διπλό κλικ Αυτό το OutlookSession στα αριστερά Σχέδιο παράθυρο και αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο νέο παράθυρο κώδικα.

VBA: Αυτόματη επισήμανση λέξεων-κλειδιών σε εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου

Public WithEvents GMailItems As Outlook.Items
'UpdatebyExtendoffice20181106
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    AutoHighlight_SpecificWords Item
End Sub
Sub AutoHighlight_SpecificWords(Mail As Outlook.MailItem)
    Dim xWord As Variant
    Dim xHTMLBody As String, xStr As String
    Dim xWordArr
    On Error Resume Next
    xWordArr = Array("Kutools", "Important")  'keyword
    xHTMLBody = Mail.HTMLBody
    For Each xWord In xWordArr
        If InStr(xHTMLBody, xWord) > 0 Then
            xStr = "<font style=" & Chr(34) & "background-color: yellow" & Chr(34) & ">" & xWord & "</font>"
            xHTMLBody = Replace(xHTMLBody, xWord, xStr)
            Mail.HTMLBody = xHTMLBody
        End If
    Next
    Mail.Save
End Sub

Συμβουλή: στον κώδικα, μπορείτε να αλλάξετε τις λέξεις-κλειδιά όπως χρειάζεστε σε αυτό το σενάριο xWordArr = Σειρά ("Kutools""σημαντικό") .

3. Στη συνέχεια, αποθηκεύστε τον κωδικό και επιστρέψτε στο Outlook ， κάτω Αρχική κάντε κλικ στην καρτέλα Κανόνες που > Διαχείριση κανόνων και ειδοποιήσεων.

4. Στο Κανόνες και ειδοποιήσεις κάντε κλικ στο πλαίσιο διαλόγου Νέος κανόνας υπό Κανόνες ηλεκτρονικού ταχυδρομείου καρτέλα και μετά Οδηγός κανόνων κάντε κλικ στο πλαίσιο διαλόγου Εφαρμόστε τον κανόνα στα μηνύματα που λαμβάνω.

5. κλικ Επόμενο > Επόμενο > Ναι για να μεταβείτε στον τρίτο διάλογο, επιλέξτε εκτελέστε ένα σενάριο από Step1 , στη συνέχεια, κάντε κλικ στην επιλογή ένα σενάριο in Step2 ενότητα για ενεργοποίηση Επιλέξτε Σενάριο διαλόγου, επιλέξτε αυτόν τον κωδικό Έργο 1. ThisOutlookSession.AutoHighlight_SpecificWords. Κλίκ OK.

6. κλικ Επόμενο > Επόμενο, στον τελευταίο διάλογο, δώστε ένα όνομα για αυτόν τον κανόνα.

7. κλικ φινίρισμα > OK για να ολοκληρώσετε τον κανόνα.

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

Αποθηκεύστε ή εξαγάγετε πολλά email σε άλλα αρχεία fomat (PDF / HTML / WORD / EXCEL) στο Outlook

Μερικές φορές, μπορεί να θέλετε να αποθηκεύσετε ή να εξαγάγετε τα μηνύματα ηλεκτρονικού ταχυδρομείου σε ένα φάκελο ως άλλα αρχεία μορφής, όπως αρχεία PDF, Word ή Excel στο Outlook. Στο Outlook, καμία από τις λειτουργίες Save as and Export δεν μπορεί να χειριστεί αυτήν την εργασία. Ωστόσο, Kutools για το Outlook's Save as file Το βοηθητικό πρόγραμμα μπορεί να εξάγει πολλά email σε ένα φάκελο ως αρχεία με πολλές μορφές ταυτόχρονα.    Κάντε κλικ για δωρεάν δοκιμή 45 ημερών!

Kutools για Outlook: με δεκάδες εύχρηστα πρόσθετα του Outlook, δωρεάν δοκιμή χωρίς περιορισμό σε 45 ημέρες.

---

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα Pro: Μαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

Διαβάστε Περισσότερα       Δωρεάν κατέβασμα      Αγορά