2 metoder til automatisk visning af private kalenderelementer i en bestemt farve i din Outlook

For nemmere at kunne skelne mellem private og ikke-private elementer i kalenderen, kan du automatisk vise private elementer i en bestemt farve, f.eks. rød for at fremhæve dem. Dette indlæg vil introducere to måder at gøre det på.

Mange brugere foretrækker at klassificere kalenderelementer ud fra, om de er private eller ej. Da private emner i kalenderen som standard ikke har nogen tydelige forskelle i synet for at identificere private emner meget lettere, kan du lade Outlook automatisk vise dem i en bestemt farve. Her vil vi lære dig to tilgange til at få det.

Metode 1: Brug "Betinget formatering"

1. Til at starte med skal du åbne Outlook og åbne "Kalender"-panelet.
2. Drej derefter til "Vis" -fanen, og skift visningen til "Kalender".
3. Klik derefter på knappen "Vis indstillinger".
4. Klik på “Betinget formatering” i popup-dialogboksen.
5. Senere, i den efterfølgende dialog, skal du klikke på "Tilføj" og indtaste et navn som "Privat".
6. Vælg derefter en bestemt farve, som "Mørkerød" for min forekomst.
7. Klik derefter på knappen "Tilstand".
8. I den næste dialogboks skal du skifte til fanen "Avanceret" og tilføje følgende filter:

Sensitivity > equals > private

9. Klik endelig på "Føj til liste" og flere "OK" for at gemme denne formateringsregel.
10. Fra nu af vises alle de private kalenderelementer i "Mørkerød".

Metode 2: Brug "Auto Color Categorize" i VBA

1. Først skal du oprette en ny farvekategori kaldet "Privat" med en bestemt farve.
2. Start derefter Outlook VBA-editor i henhold til “Sådan køres VBA-kode i din Outlook".
3. Sæt derefter følgende kode i “ThisOutlookSession” -projektet.

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. Genstart til sidst Outlook for at aktivere denne makro.
5. Nu kan du prøve.

• Pitch på et element i standardkalenderen.
• Skift derefter til “Privat”.
• Straks tildeles dette emne "Privat" farvekategori som vist i følgende skærmbillede.

Redd dine værdifulde Outlook-data

Da Outlook er sårbart, har mange brugere nogensinde været udsat for PST-korruption. Generelt, når du støder på det, kan du først prøve værktøj til reparation af indbakke for at rette filen. Alligevel, hvis det fejler, kan du ty til et mere potent og pålideligt eksternt værktøj, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql korruption og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com