2 Μέθοδοι αυτόματης εμφάνισης στοιχείων προσωπικού ημερολογίου σε συγκεκριμένο χρώμα στο Outlook

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

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

Μέθοδος 1: Χρησιμοποιήστε τη "Μορφοποίηση υπό όρους"

1. Για αρχή, ανοίξτε το Outlook και αποκτήστε πρόσβαση στο παράθυρο "Ημερολόγιο".
2. Στη συνέχεια, μεταβείτε στην καρτέλα "Προβολή" και αλλάξτε την προβολή σε "Ημερολόγιο".
3. Στη συνέχεια, πατήστε το κουμπί "Προβολή ρυθμίσεων".
4. Στο αναδυόμενο παράθυρο διαλόγου, κάντε κλικ στο "Μορφοποίηση υπό όρους".
5. Αργότερα, στο επόμενο παράθυρο διαλόγου, κάντε κλικ στο "Προσθήκη" και εισαγάγετε ένα όνομα, όπως "Ιδιωτικό".
6. Στη συνέχεια, επιλέξτε ένα συγκεκριμένο χρώμα, όπως το "Dark Red" για την παρουσία μου.
7. Μετά από αυτό, κάντε κλικ στο κουμπί "Κατάσταση".
8. Στο επόμενο παράθυρο διαλόγου, μεταβείτε στην καρτέλα "Για προχωρημένους" και προσθέστε το ακόλουθο φίλτρο:

Sensitivity > equals > private

9. Τέλος, κάντε κλικ στο "Προσθήκη στη λίστα" και σε πολλά "OK" για να αποθηκεύσετε αυτόν τον κανόνα μορφοποίησης.
10. Από τώρα και στο εξής, όλα τα προσωπικά στοιχεία ημερολογίου θα εμφανίζονται στο "Dark Red".

Μέθοδος 2: Χρησιμοποιήστε την "Αυτόματη κατηγοριοποίηση χρωμάτων" στο VBA

1. Πρώτα απ 'όλα, δημιουργήστε μια νέα κατηγορία χρωμάτων που ονομάζεται "Ιδιωτική" με ένα συγκεκριμένο χρώμα.
2. Στη συνέχεια, ξεκινήστε το πρόγραμμα επεξεργασίας του Outlook VBA σύμφωνα με το "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
3. Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα στο έργο "ThisOutlookSession".

Private WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
     Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
    Dim varCategories As Variant
    Dim i As Long

    varCategories = Split(objCurrentItem.Categories, ",")

    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
      Next
    End If
End Sub

4. Τελικά, επανεκκινήστε το Outlook για να ενεργοποιήσετε αυτήν τη μακροεντολή.
5. Τώρα, μπορείτε να δοκιμάσετε.

• Προωθήστε ένα στοιχείο στο προεπιλεγμένο ημερολόγιο.
• Στη συνέχεια, αλλάξτε το σε "Ιδιωτικό".
• Αμέσως, η κατηγορία χρώματος "Ιδιωτική" θα αντιστοιχιστεί σε αυτό το στοιχείο, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Διασώστε τα πολύτιμα δεδομένα σας στο Outlook

Δεδομένου ότι το Outlook είναι ευάλωτο, πολλοί χρήστες έχουν υποστεί ποτέ καταστροφή PST. Γενικά, όταν το συναντάτε, μπορείτε πρώτα να δοκιμάσετε το εργαλείο επισκευής εισερχομένων για να διορθώσετε το αρχείο. Ωστόσο, εάν αποτύχει, μπορείτε να καταφύγετε σε ένα πιο ισχυρό και αξιόπιστο εξωτερικό βοηθητικό πρόγραμμα, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων sql διαφθορά και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com