Ορισμένοι χρήστες του Outlook προτιμούν να κατηγοριοποιούν τα email τους σύμφωνα με τις κατηγορίες χρωμάτων επαφής των αποστολέων. Η μη αυτόματη εκχώρηση της κατηγορίας πρέπει να είναι δυσκίνητη. Αυτό το άρθρο θα παρουσιάσει τον τρόπο αυτόματης πραγματοποίησής του με το Outlook VBA.
Για να βελτιώσετε την αποδοτικότητα της εργασίας σας στο Outlook, θα καταβάλλετε προσπάθειες για καλύτερη διαχείριση των email σας. Χωρίς αμφιβολίες, οι "Κατηγορίες χρωμάτων" είναι ένα καλό χαρακτηριστικό από αυτή την άποψη. Πολλοί χρήστες προτιμούν να το χρησιμοποιούν για την οργάνωση και τη διάκριση των μηνυμάτων τους. Φυσικά, η συγκεκριμένη βάση της χρωματικής κατηγοριοποίησης email εξαρτάται από τις προσωπικές σας συνήθειες. Για παράδειγμα, ορισμένοι χρήστες έχουν κατηγοριοποιήσει το χρώμα των επαφών τους, επομένως, ελπίζουν να κατηγοριοποιήσουν τα email τους σύμφωνα με τις κατηγορίες επαφών των αποστολέων. Εάν το κάνετε αυτό με μη αυτόματο τρόπο, θα είναι σίγουρα ακατάστατο καθώς πρέπει πρώτα να ελέγξετε τις κατηγορίες επαφών του αποστολέα και στη συνέχεια να το αντιστοιχίσετε με μη αυτόματο τρόπο στο email
Για να αντιμετωπίσετε αυτήν την απαίτηση, μπορείτε πραγματικά να χρησιμοποιήσετε το Outlook VBA, το οποίο επιτρέπει στο Outlook να ελέγξει αυτόματα τις κατηγορίες επαφών του αποστολέα και να το εκχωρήσει στα νέα μηνύματα. Εάν σας ενδιαφέρει αυτή η δυνατότητα, διαβάστε για να λάβετε τα περίπλοκα βήματα και τους κωδικούς.
Αυτόματη κατηγοριοποίηση των εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου από τις κατηγορίες επαφών των αποστολέων
- Πρώτα, ξεκινήστε το Outlook και πατήστε τα πλήκτρα "Alt + F11".
- Στη συνέχεια θα εμφανιστεί το παράθυρο του προγράμματος επεξεργασίας VBA, στο οποίο πρέπει να βρείτε και να ανοίξετε το έργο "ThisOutlookSession".
- Στη συνέχεια αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA στο “ThisOutlookSession”.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim oMail As MailItem
Dim olContacts As Outlook.Items
Dim obj As Object
Dim objVariant As Variant
Dim olCategory As String
Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
If TypeOf Item Is MailItem Then
Set oMail = Item
For Each obj In olContacts
If TypeOf obj Is ContactItem Then
Set objVariant = obj
If objVariant.Email1Address = oMail.SenderEmailAddress Then
olCategory = objVariant.Categories
oMail.Categories = olCategory
End If
End If
Next
End If
End Sub
- Στη συνέχεια, θα πρέπει να εκχωρήσετε ένα ψηφιακό πιστοποιητικό στη νέα μακροεντολή.
- Πρώτον, δημιουργήστε ένα νέο πιστοποιητικό μέσω Ψηφιακών πιστοποιητικών για έργα VBA.
- Στη συνέχεια, υπογράψτε ψηφιακά αυτόν τον κωδικό.
- Μετά από αυτό, μπορείτε να αλλάξετε την ασφάλεια μακροεντολής του Outlook, επιτρέποντας μόνο τις ψηφιακά υπογεγραμμένες μακροεντολές.
- Τέλος μπορείτε να κάνετε restart Outlook για να ενεργοποιήσετε τη νέα μακροεντολή. Από τώρα και στο εξής, όλα τα εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου που φτάνουν στο φάκελο Εισερχόμενα θα κατηγοριοποιηθούν αυτόματα από τις κατηγορίες επαφών των αποστολέων.
Διευθετήστε το μη αναμενόμενο σφάλμα του Outlook
Αν και το Outlook προτιμάται από πολλούς χρήστες, εξακολουθεί να μην μπορεί να απαλλαγεί από το σφάλμα. Πρέπει να αισθανθείτε πανικό όταν υποφέρετε απρόβλεπτο σφάλμα στο Outlook. Μην ανησυχείς. Μπορείτε να προβείτε σε ενέργειες για τη διάγνωση και την επίλυση των προβλημάτων από μόνα σας, όπως το restarΕνεργοποίηση του Outlook, απενεργοποίηση πρόσθετων τρίτων, δημιουργία νέου προφίλ αλληλογραφίας και επιδιόρθωση της σουίτας του Office κ.ο.κ. Η χειρότερη περίπτωση πρέπει να είναι κατεστραμμένα δεδομένα του Outlook PST, το οποίο είναι εξαιρετικά κόμπο. Σε αυτό το σενάριο, πρέπει να επαναλάβετε ένα ισχυρό εξωτερικό εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση κατεστραμμένου SQL mdf db και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com