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"
- For somtart, start Outlook og åpne "Kalender"-panelet.
- Gå deretter til "Vis"-fanen og endre visningen til "Kalender".
- Deretter trykker du på "Vis innstillinger" -knappen.
- I popup-dialogboksen klikker du på "Betinget formatering".
- Senere, i den påfølgende dialogboksen, klikk "Legg til" og skriv inn et navn, som "Privat".
- Velg deretter en bestemt farge, for eksempel "Mørkerød" for mitt eksempel.
- Klikk deretter på "Tilstand"-knappen.
- I den neste dialogboksen bytter du til "Avansert"-fanen og legger til følgende filter:
Sensitivitet > lik > privat
- Til slutt klikker du på "Legg til i liste" og flere "OK" for å lagre denne formateringsregelen.
- Fra nå av vil alle de private kalenderelementene vises i "Mørkerød".
Metode 2: Bruk "Auto Color Categorize" i VBA
- Først oppretter du en ny fargekategori kalt "Privat" med en bestemt farge.
- Deretter starter du Outlook VBA-editor i henhold til "Hvordan kjøre VBA-kode i Outlook".
- Deretter legger du følgende kode inn i "ThisOutlookSession" -prosjektet.
Private WithEvents objCalendarItems As Outlook.Items Private Sub Application_Startup() Sett objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items End Sub Private Sub objCalendarItems_ItemAdd(ByVal Item As Object) Dim objCalendarItem As Outlook.AppointmentItem Set objCalendarItems objSrivate = ItemCalendarItem objSrivate = ItemCalendarItem obj. CalendarItem.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. alendarItem.Categories = "Private" Else Call RemovePrivateCategory(objCalendarItem, "Private") End If objCalendarItem.Save End Sub Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String) Dim varCategory As Variant Dim i As Long varCatories(objCat. ,"") 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
- Etter hvert ble restart Outlook for å aktivere denne makroen.
- Nå kan du prøve.
- Pitch på et element i standardkalenderen.
- Deretter endrer du den til "Privat".
- Med en gang vil "Privat" fargekategori tildeles dette elementet, som vist i følgende skjermbilde.
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