2 metoder for å automatisk vise private kalenderelementer i en bestemt farge i Outlook

Outlook-løsninger September 29, 2025

For å skille mellom private elementer og ikke-private elementer i kalenderen lettere, kan det være lurt å automatisk vise private elementer i en bestemt farge, for eksempel rød for å fremheve dem. Denne post vil introdusere 2 måter å realisere det på.

Mange brukere foretrekker å klassifisere kalenderelementer basert på om de er private eller ikke. Siden private elementer i kalenderen ikke har noen åpenbare forskjeller i syn som standard, for å identifisere private elementer mye lettere, kan du la Outlook automatisk vise dem i en bestemt farge. Her vil vi lære deg 2 tilnærminger for å få det.

Metode 1: Bruk "Betinget formatering"

  1. For somtart, start Outlook og åpne "Kalender"-panelet.
  2. Gå deretter til "Vis"-fanen og endre visningen til "Kalender".Kalendervisning
  3. Deretter trykker du på "Vis innstillinger" -knappen.
  4. I popup-dialogboksen klikker du på "Betinget formatering".Betinget formatering
  5. Senere, i den påfølgende dialogboksen, klikk "Legg til" og skriv inn et navn, som "Privat".
  6. Velg deretter en bestemt farge, for eksempel "Mørkerød" for mitt eksempel.Velg Betinget formateringsfarge
  7. Klikk deretter på "Tilstand"-knappen.
  8. I den neste dialogboksen bytter du til "Avansert"-fanen og legger til følgende filter:
Sensitivity > equals > private

Sett Velg fargefilter for betinget formatering

  1. Til slutt klikker du på "Legg til i liste" og flere "OK" for å lagre denne formateringsregelen.
  2. Fra nå av vil alle de private kalenderelementene vises i "Mørkerød".Private gjenstander i mørk farge

Metode 2: Bruk "Auto Color Categorize" i VBA

  1. Først oppretter du en ny fargekategori kalt "Privat" med en bestemt farge.
  2. Deretter starter du Outlook VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook".
  3. Deretter legger du følgende kode inn i "ThisOutlookSession" -prosjektet.
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

VBA-kode - Vis private kalenderelementer automatisk i en bestemt farge

  1. Etter hvert ble restart Outlook for å aktivere denne makroen.
  2. Nå kan du prøve.
  • Pitch på et element i standardkalenderen.
  • Deretter endrer du den til "Privat".Endre et kalenderelement til Privat
  • Med en gang vil "Privat" fargekategori tildeles dette elementet, som vist i følgende skjermbilde.Automatisk tildelt "Privat" fargekategori

Redd dine verdifulle Outlook-data

Siden Outlook er sårbart, har mange brukere vært utsatt for PST-korrupsjon. Generelt, når du møter det, kan du først prøve verktøy for reparasjon av innboks for å fikse filen. Likevel, hvis det mislykkes, kan du ty til et mer potent og pålitelig eksternt verktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.