Om privé- en niet-privé-items in je agenda gemakkelijker van elkaar te onderscheiden, kun je ervoor kiezen om privé-items automatisch in een specifieke kleur weer te geven, bijvoorbeeld rood, om ze te markeren. In dit artikel worden twee manieren beschreven om dit te realiseren.
Veel gebruikers geven er de voorkeur aan om agenda-items te classificeren op basis van of ze privé zijn of niet. Omdat privé-items in de agenda standaard geen duidelijke verschillen in zicht hebben, kunt u ze automatisch in een specifieke kleur laten weergeven om privé-items veel gemakkelijker te identificeren. Hier zullen we je 2 benaderingen leren om het te krijgen.
Methode 1: gebruik 'Voorwaardelijke opmaak'
- Open om te beginnen Outlook en ga naar het deelvenster 'Agenda'.
- Ga vervolgens naar het tabblad "Weergave" en verander de weergave in "Kalender".

- Klik vervolgens op de knop "Instellingen bekijken".
- Klik in het pop-upvenster op "Voorwaardelijke opmaak".
- Klik later in het volgende dialoogvenster op "Toevoegen" en voer een naam in, bijvoorbeeld "Privé".
- Selecteer vervolgens een specifieke kleur, zoals "Donkerrood" voor mijn exemplaar.
- Klik daarna op de knop "Conditie".
- Schakel in het volgende dialoogvenster naar het tabblad "Geavanceerd" en voeg het volgende filter toe:
Sensitivity > equals > private
- Klik ten slotte op "Toevoegen aan lijst" en verschillende "OK" om deze opmaakregel op te slaan.
- Vanaf nu worden alle privé-agenda-items weergegeven in "Donkerrood".
Methode 2: Gebruik "Auto Color Categorize" in VBA
- Maak eerst een nieuwe kleurcategorie aan met de naam "Privé" met een specifieke kleur.
- Start vervolgens de Outlook VBA-editor volgens “Hoe u VBA-code in uw Outlook uitvoert'.
- Plaats vervolgens de volgende code in het project "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
- Start Outlook uiteindelijk opnieuw op om deze macro te activeren.
- Nu kunt u het proberen.
- Pitch op een item in de standaardkalender.
- Verander het vervolgens in "Privé".
- Meteen wordt de kleurcategorie “Privé” aan dit item toegewezen, zoals weergegeven in de volgende schermafbeelding.
Red uw waardevolle Outlook-gegevens
Omdat Outlook kwetsbaar is, hebben veel gebruikers ooit te maken gehad met PST-corruptie. Over het algemeen kunt u, wanneer u het tegenkomt, eerst het inbox reparatieprogramma om het bestand te repareren. Maar als het niet lukt, kunt u uw toevlucht nemen tot een krachtiger en betrouwbaarder extern hulpprogramma, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com






