2 metode za automatski prikaz stavki privatnog kalendara u određenoj boji u vašem programu Outlook

Kako biste lakše razlikovali privatne stavke od onih koje nisu privatne u kalendaru, možete automatski prikazati privatne stavke određenom bojom, poput crvene, kako biste ih istaknuli. Ovaj članak predstavit će dva načina za to.

Mnogi korisnici radije klasificiraju stavke kalendara na temelju toga jesu li privatne ili ne. Budući da u kalendaru privatne stavke prema zadanim postavkama nemaju očigledne razlike u viziji, kako biste puno lakše identificirali privatne stavke, možete dopustiti da ih Outlook automatski prikazuje u određenoj boji. Ovdje ćemo vas naučiti 2 pristupa kako to postići.

Metoda 1: Koristite "Uvjetno oblikovanje"

1. Za početak, pokrenite Outlook i pristupite oknu "Kalendar".
2. Zatim otvorite karticu "Prikaz" i promijenite prikaz u "Kalendar".
3. Zatim pritisnite gumb "View Settings".
4. U skočnom dijaloškom okviru kliknite "Uvjetno oblikovanje".
5. Kasnije, u sljedećem dijaloškom okviru, kliknite "Dodaj" i unesite naziv, na primjer "Privatno".
6. Zatim odaberite određenu boju, kao što je "Tamno crvena" za moj primjer.
7. Nakon toga kliknite gumb "Stanje".
8. U sljedećem dijaloškom okviru prijeđite na karticu "Napredno" i dodajte sljedeći filtar:

Sensitivity > equals > private

9. Na kraju kliknite "Dodaj na popis" i nekoliko "U redu" da biste spremili ovo pravilo oblikovanja.
10. Od sada će sve privatne stavke kalendara biti prikazane u "tamnocrvenoj boji".

Metoda 2: Koristite "Auto Color Categorize" u VBA

1. Najprije stvorite novu kategoriju boja pod nazivom "Privatno" s određenom bojom.
2. Zatim pokrenite Outlook VBA uređivač prema "Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim stavite sljedeći kod u projekt “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. Na kraju ponovno pokrenite Outlook da biste aktivirali ovaj makro.
5. Sada možete pokušati.

• Predložite stavku u zadanom kalendaru.
• Zatim ga promijenite u "Privatno".
• Ovoj će stavci odmah biti dodijeljena kategorija boja "Privatno", kao što je prikazano na sljedećoj snimci zaslona.

Spasite svoje vrijedne Outlook podatke

Budući da je Outlook ranjiv, mnogi su korisnici ikada bili izloženi PST korupciji. Općenito, kada naiđete na njega, prvo možete isprobati alat za popravak inboxa popraviti datoteku. Ipak, ako ne uspije, možete pribjeći moćnijem i pouzdanijem vanjskom pomoćnom programu, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com