Aby łatwiej odróżnić elementy prywatne od nieprywatnych w kalendarzu, możesz ustawić automatyczne wyświetlanie elementów prywatnych w określonym kolorze, na przykład czerwonym, aby je wyróżnić. W tym poście przedstawimy 2 sposoby, aby to osiągnąć.
Wielu użytkowników woli klasyfikować elementy kalendarza na podstawie tego, czy są prywatne, czy nie. Ponieważ w kalendarzu przedmioty prywatne nie mają domyślnie widocznych różnic, aby znacznie łatwiej identyfikować przedmioty prywatne, możesz zezwolić programowi Outlook na automatyczne wyświetlanie ich w określonym kolorze. Tutaj nauczymy Cię 2 podejść, aby go zdobyć.
Metoda 1: Użyj „formatowania warunkowego”
- Na początek uruchom program Outlook i przejdź do panelu „Kalendarz”.
- Następnie przejdź do zakładki „Widok” i zmień widok na „Kalendarz”.
- Następnie naciśnij przycisk „Wyświetl ustawienia”.
- W wyskakującym oknie dialogowym kliknij „Formatowanie warunkowe”.
- Później w następnym oknie dialogowym kliknij „Dodaj” i wprowadź nazwę, na przykład „Prywatny”.
- Następnie wybierz określony kolor, na przykład „Dark Red” dla mojej instancji.
- Następnie kliknij przycisk „Warunek”.
- W następnym oknie dialogowym przejdź do zakładki „Zaawansowane” i dodaj następujący filtr:
Sensitivity > equals > private
- Na koniec kliknij „Dodaj do listy” i kilka „OK”, aby zapisać tę regułę formatowania.
- Od teraz wszystkie prywatne pozycje kalendarza będą wyświetlane w kolorze „ciemnoczerwonym”.
Metoda 2: Użyj „Automatycznej kategoryzacji kolorów” w VBA
- Po pierwsze, utwórz nową kategorię kolorów o nazwie „Prywatna” z określonym kolorem.
- Następnie uruchom edytor Outlook VBA zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
- Następnie umieść następujący kod w projekcie „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
- Następnie uruchom ponownie program Outlook, aby aktywować tę makroinstrukcję.
- Teraz możesz spróbować.
- Zaproponuj pozycję w domyślnym kalendarzu.
- Następnie zmień go na „Prywatny”.
- Od razu do tego elementu zostanie przypisana kategoria kolorów „Prywatna”, jak pokazano na poniższym zrzucie ekranu.
Uratuj swoje cenne dane programu Outlook
Ponieważ program Outlook jest podatny na ataki, wielu użytkowników kiedykolwiek padło ofiarą uszkodzenia pliku PST. Ogólnie rzecz biorąc, napotykając go, możesz najpierw spróbować narzędzie do naprawy skrzynki odbiorczej aby naprawić plik. Jeśli jednak to się nie powiedzie, możesz skorzystać z mocniejszego i niezawodnego narzędzia zewnętrznego, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym sql korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com