Εάν θέλετε να αντικαταστήσετε την κατηγορία χρωμάτων ενός αντικειμένου του Outlook, θα πρέπει να καταργήσετε την αρχική καθώς έχει αντιστοιχιστεί μια νέα κατηγορία. Έτσι, σε αυτό το άρθρο, θα σας διδάξουμε πώς να αυτοματοποιήσετε αυτό μέσω VBA.
Ο κύριος λόγος για τον οποίο χρησιμοποιούμε τις κατηγορίες χρωμάτων στο Outlook είναι η καλύτερη ταξινόμηση και διαχείριση των στοιχείων του Outlook. Επιπλέον, το Outlook μας επιτρέπει να αντιστοιχίσουμε μία ή περισσότερες κατηγορίες χρωμάτων σε ένα στοιχείο. Ωστόσο, πάρα πολλές κατηγορίες που εκχωρούνται σε ένα στοιχείο ενδέχεται μερικές φορές να γεμίζουν τους κανόνες ταξινόμησης. Ως εκ τούτου, πολλοί χρήστες θέλουν να αντικαταστήσουν την κατηγορία χρωμάτων αντί για επικάλυψη κατηγοριών. Εδώ θα σας παρουσιάσουμε έναν αποτελεσματικό τρόπο για εσάς.
Αντικαταστήστε την κατηγορία χρωμάτων ενός στοιχείου του Outlook
- Στην αρχή, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, μεταβείτε στην καρτέλα "Προγραμματιστής" και κάντε κλικ στο κουμπί "Visual Basic" ή πατήστε συντομεύσεις πλήκτρων "Alt + F11".
- Στη συνέχεια θα εισέλθετε στο παράθυρο "Microsoft Visual Basic for Applications".
- Σε αυτό το σημείο, θα πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession" στην αριστερή πλευρά για να το ανοίξετε.
- Στη συνέχεια, αντιγράψτε τους ακόλουθους κωδικούς VBA σε αυτό το παράθυρο έργου.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
'Take Mailitem as an example
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_Activate()
On Error Resume Next
Set objMail = objExplorer.Selection.Item(1)
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
Set objMail = Inspector.CurrentItem
End Sub
Private Sub objMail_PropertyChange(ByVal Name As String)
Dim strSpecificCategory As String
Dim strCategories As String
Dim varArray As Variant
Dim i As Long
If Name = "Categories" Then
strCategories = objMail.Categories
varArray = Split(objMail.Categories, ",")
If UBound(varArray) >= 1 Then
'If want to get a confirmation before removing the original category
'Add the following lines
'Dim strPrompt As String
'Dim nResponse As Integer
'strPrompt = "Do you want to remove the original color category?"
'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
'If nResponse = vbYes Then
For i = 0 To UBound(varArray)
'Remove the previous color categories
varArray(1) = ""
'Rebuild the categories
objMail.Categories = Join(varArray, ",")
Exit Sub
Next i
'End If
End If
End If
End Sub
- Μετά από αυτό, θα πρέπει να εκχωρήσετε ένα ψηφιακό πιστοποιητικό σε αυτήν τη νέα μακροεντολή.
- Αργότερα πρέπει να ελέγξετε τις ρυθμίσεις μακροεντολών του Outlook για να βεβαιωθείτε ότι είναι ενεργοποιημένες οι υπογεγραμμένες μακροεντολές.
- Τελικά, θα πρέπει να επανεκκινήσετε το Outlook για να ενεργοποιήσετε το νέο έργο VBA.
- Από τώρα και στο εξής, κάθε φορά που εκχωρείτε μια νέα κατηγορία σε ένα στοιχείο, η προηγούμενη θα καταργείται αυτόματα.
Αντιμετώπιση προβλημάτων Nettlesome Outlook
Καθώς το Outlook είναι επιρρεπές σε σφάλματα και καταστροφή, θα αντιμετωπίσετε διάφορα ζητήματα στο Outlook. Επομένως, πρέπει να κάνετε επαρκή προφύλαξη. Για παράδειγμα, συνιστάται να δημιουργείτε τακτικά αντίγραφα ασφαλείας για το αρχείο PST. Επιπλέον, πρέπει να αποκτήσετε ένα ισχυρό Διόρθωση PST εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση Sql Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com