2 метода за автоматично показване на елементи от частен календар в определен цвят във вашия Outlook

За да разграничите по-лесно частните и не частните елементи в календара, може да искате да покажете автоматично частни елементи в определен цвят, като червено, за да ги подчертаете. Това стрost ще въведе 2 начина да го реализира.

Много потребители предпочитат да класифицират елементи в календара въз основа на това дали са частни или не. Тъй като в календара частните елементи по подразбиране нямат явни различия във визията, така че да идентифицират много по-лесно частните елементи, можете да позволите на Outlook да ги показва автоматично в определен цвят. Тук ще ви научим на 2 подхода, за да го получите.

Метод 1: Използвайте „Условно форматиране“

1. За катоtart, стартирайте Outlook и отворете прозореца „Календар“.
2. След това преминете към раздела „Преглед“ и променете изгледа на „Календар“.
3. След това натиснете бутона „Преглед на настройките“.
4. В изскачащия диалогов прозорец щракнете върху „Условно форматиране“.
5. По-късно в следващия диалогов прозорец щракнете върху „Добавяне“ и въведете име, като „Частно“.
6. След това изберете конкретен цвят, като „Тъмно червен“ за моя пример.
7. След това щракнете върху бутона „Състояние“.
8. В следващия диалогов прозорец превключете към раздела „Разширени“ и добавете следния филтър:

Sensitivity > equals > private

9. Накрая щракнете върху „Добавяне към списъка“ и няколко „ОК“, за да запазите това правило за форматиране.
10. Отсега нататък всички частни елементи от календара ще се показват в „Тъмно червено“.

Метод 2: Използвайте “Auto Color Categorize” във 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. В крайна сметка, резtart Outlook, за да активирате този макрос.
5. Сега можете да опитате.

• Преместете елемент в календара по подразбиране.
• След това го променете на „Частно“.
• Веднага на този елемент ще бъде присвоена категория „Частен“ цвят, както е показано на следващата екранна снимка.

Спасете ценните си данни в Outlook

Тъй като Outlook е уязвим, много потребители някога са били обект на PST корупция. Като цяло, когато го срещнете, можете първо да опитате инструмент за ремонт на входящата кутия за да поправите файла. И все пак, ако не успее, можете да прибегнете до по-мощна и надеждна външна програма, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com