2 načina za samodejni prikaz elementov zasebnega koledarja v določeni barvi v Outlooku

Da bi lažje ločili zasebne in nezasebne elemente v koledarju, lahko zasebne elemente samodejno prikažete v določeni barvi, na primer rdeči, da jih označite. V tej objavi bosta predstavljena dva načina za to.

Mnogi uporabniki raje razvrščajo elemente koledarja glede na to, ali so zasebni ali ne. Ker v koledarju zasebni predmeti privzeto nimajo očitnih razlik v vidu, zato lahko lažje prepoznate zasebne predmete, da jih Outlook samodejno prikaže v določeni barvi. Tukaj vas bomo naučili 2 pristopa, da ga dobite.

1. način: Uporabite »Pogojno oblikovanje«

1. Za začetek zaženite Outlook in odprite podokno »Koledar«.
2. Nato se obrnite na zavihek "Pogled" in spremenite pogled v "Koledar".
3. Nato pritisnite gumb »Ogled nastavitev«.
4. V pojavnem pogovornem oknu kliknite »Pogojno oblikovanje«.
5. Kasneje v naslednjem pogovornem oknu kliknite »Dodaj« in vnesite ime, na primer »Zasebno«.
6. Nato izberite določeno barvo, na primer »Temno rdeča« za moj primer.
7. Po tem kliknite gumb »Pogoj«.
8. V naslednjem pogovornem oknu preklopite na zavihek »Napredno« in dodajte naslednji filter:

Sensitivity > equals > private

9. Na koncu kliknite »Dodaj na seznam« in nekaj »V redu«, da shranite to pravilo oblikovanja.
10. Od zdaj naprej bodo vsi elementi zasebnega koledarja prikazani v temno rdeči barvi.

2. način: V VBA uporabite funkcijo »Samodejno razvrščanje barv«

1. Najprej ustvarite novo barvno kategorijo z imenom »Zasebno« z določeno barvo.
2. Nato zaženite urejevalnik Outlook VBA v skladu z “Kako zagnati kodo VBA v Outlooku".
3. Nato v projekt »ThisOutlookSession« vnesite naslednjo kodo.

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. Sčasoma znova zaženite Outlook, da aktivirate ta makro.
5. Zdaj lahko poskusite.

• Postavite element v privzeti koledar.
• Nato ga spremenite v »Zasebno«.
• Temu elementu bo takoj dodeljena barvna kategorija »Zasebno«, kot je prikazano na naslednjem posnetku zaslona.

Rešite svoje dragocene Outlookove podatke

Ker je Outlook ranljiv, je veliko uporabnikov kdaj izpostavljeno korupciji PST. Na splošno lahko ob srečanju najprej poskusite orodje za popravilo nabiralnika da popravite datoteko. Če pa ne uspe, se lahko zatečete k močnejšemu in zanesljivejšemu zunanjemu pripomočku, na primer DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z sql korupcije in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com