Πώς να ταξινομήσετε και να ομαδοποιήσετε κατά τομέα αποστολέα στο Outlook;

Κανονικά, μπορούμε εύκολα να τακτοποιήσουμε όλα τα μηνύματα email ανά αποστολέα, κατηγορίες, θέματα, μέγεθος κ.λπ. στο Microsoft Outlook. Ωστόσο, φαίνεται αδύνατο να ταξινομήσετε ή να ομαδοποιήσετε τα μηνύματα email κατά τομείς αποστολέα, επειδή δεν υπάρχει καθόλου πεδίο τομέα αποστολέα για μηνύματα email. Εδώ θα εισαγάγω έναν κώδικα VBA για να σας βοηθήσω να προσθέσετε μια στήλη Domain για μηνύματα email και, στη συνέχεια, να ταξινομήσετε και να ομαδοποιήσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου κατά τους τομείς αποστολέα εύκολα στο Outlook.

Για να ταξινομήσετε και να ομαδοποιήσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου κατά τομείς αποστολέα στο Microsoft Outlook 2013 και 2010, κάντε τα εξής:

Βήμα 1: Ανοίξτε το φάκελο αλληλογραφίας όπου θα ταξινομήσετε όλα τα μηνύματα email κατά τομείς αποστολέα.

Βήμα 2: Απενεργοποιήστε το παράθυρο ανάγνωσης κάνοντας κλικ στο Πλαίσιο ανάγνωσης > Εκτός σχετικά με την Δες Tab.

Βήμα 3: Προχωρήστε και κάντε κλικ στο Προσθέστε στήλες σχετικά με την Δες Tab.

Βήμα 3: Στο παράθυρο διαλόγου Εμφάνιση στηλών, κάντε κλικ στο Νέα στήλη κουμπί.

Βήμα 4: Στο παράθυρο διαλόγου Νέα στήλη, πληκτρολογήστε το Domain στο πλαίσιο Όνομα και κρατήστε το Κείμενο επιλεγμένο και στα δύο Χαρακτηριστικά κουτί και Μορφή πλαίσιο, επιτέλους κάντε κλικ στο OK κουμπί.

Βήμα 5: Τώρα επιστρέφετε στο παράθυρο διαλόγου Εμφάνιση στηλών, επιλέξτε το Domain στο πλαίσιο Εμφάνιση αυτών των στηλών σε αυτήν τη σειρά, μετακινήστε το παρακάτω Από στοιχείο και κάντε κλικ στο OK κουμπί.

Βήμα 6: Τώρα επιστρέφετε στον αρχικό φάκελο αλληλογραφίας, επιλέξτε όλα τα μηνύματα email πατώντας το Ctrl + A ταυτόχρονα.

Βήμα 7: Πατήστε το άλλος + F11 πλήκτρα στο μεταξύ για να ανοίξετε το παράθυρο της Microsoft Visual Basic για Εφαρμογές. στη συνέχεια κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια επικολλήστε τον ακόλουθο κώδικα VBA στη λειτουργική μονάδα.

VBA: Ταξινόμηση και ομαδοποίηση κατά τομέα αποστολέα

Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End Sub

Βήμα 8: Εκτελέστε αυτόν τον κωδικό VBA πατώντας το F5 κλειδί ή τρέξιμο κουμπί στη γραμμή εργαλείων.

Βήμα 9: Τώρα ο τομέας κάθε αποστολέα εξάγεται και συμπληρώνεται στη στήλη Τομέας.

A. Για να ταξινομήσετε τα μηνύματα email κατά τομείς αποστολέα, απλώς κάντε κλικ στην κεφαλίδα στήλης του Domain στην κορυφή όλων των μηνυμάτων email.

B. Για να ομαδοποιήσετε τα μηνύματα email κατά τομείς αποστολέα, απλώς κάντε δεξί κλικ στην κεφαλίδα στήλης του Domain, και επιλέξτε το Ομαδοποίηση ανά πεδίο από την αναπτυσσόμενη λίστα. Δείτε το στιγμιότυπο οθόνης παρακάτω:

Notes:

(1) Αυτός ο κώδικας VBA λειτουργεί καλά στο Outlook 2013 και 2010, αλλά δεν λειτουργεί στο Outlook 2007.
(2) Μπορείτε να αποθηκεύσετε την προσαρμοσμένη προβολή εύκολα με Πώς να αποθηκεύσετε και να αντιγράψετε ρυθμίσεις προβολής σε άλλους φακέλους στο Outlook;

Σχετικό άρθρο

Πώς να προβάλετε τον τομέα των αποστολέων στη λίστα αλληλογραφίας στο Outlook;

---

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

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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

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