2 metoder för att automatiskt visa privata kalenderobjekt i en specifik färg i Outlook

För att lättare kunna skilja privata och icke-privata objekt i kalendern kan du automatiskt visa privata objekt i en specifik färg, till exempel röd för att markera dem. Det här inlägget kommer att presentera två sätt att göra det på.

Många användare föredrar att klassificera kalenderobjekt utifrån om de är privata eller inte. Eftersom privata objekt i kalendern inte har några tydliga skillnader i syn som standard, för att identifiera privata objekt mycket lättare, kan du låta Outlook automatiskt visa dem i en viss färg. Här lär vi dig två metoder för att få det.

Metod 1: Använd "Villkorlig formatering"

1. Till att börja med, starta Outlook och gå till "Kalender"-fönstret.
2. Vrid sedan till fliken "Visa" och ändra vyn till "Kalender".
3. Klicka sedan på knappen "Visa inställningar".
4. I popup-dialogrutan klickar du på "Villkorlig formatering".
5. Senare, i den efterföljande dialogrutan, klicka på "Lägg till" och ange ett namn, som "Privat".
6. Välj sedan en specifik färg, som “Mörkröd” för min instans.
7. Klicka därefter på knappen "Villkor".
8. I nästa dialogruta växlar du till fliken "Avancerat" och lägger till följande filter:

Sensitivity > equals > private

9. Klicka slutligen på "Lägg till i lista" och flera "OK" för att spara denna formateringsregel.
10. Från och med nu visas alla privata kalenderobjekt i “Mörkröd”.

Metod 2: Använd “Auto Color Categorize” i VBA

1. Skapa först en ny färgkategori som heter ”Privat” med en specifik färg.
2. Starta sedan Outlook VBA-redigeraren enligt “Hur du kör VBA-kod i din Outlook".
3. Lägg sedan in följande kod i projektet "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. Starta slutligen om Outlook för att aktivera det här makrot.
5. Nu kan du prova.

• Pitch på ett objekt i standardkalendern.
• Ändra sedan till "Privat".
• Omedelbart kommer "Privat" färgkategori att tilldelas det här objektet, som visas i följande skärmdump.

Rädda dina värdefulla Outlook-data

Eftersom Outlook är sårbart har många användare någonsin utsatts för PST-korruption. I allmänhet kan du först prova när du stöter på det verktyg för reparation av inkorgen för att fixa filen. Ändå, om det misslyckas, kan du tillgripa ett mer potent och pålitligt externt verktyg, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com