2 tapaa näyttää tietyn väriset yksityiset kalenterikohteet Outlookissa automaattisesti

Jos haluat erottaa kalenterissa yksityiset ja muut kuin yksityiset kohteet helpommin, voit halutessasi näyttää yksityiset kohteet tietyllä värillä, kuten punaisella, korostaaksesi ne. Tämä sost esittelee kaksi tapaa toteuttaa se.

Monet käyttäjät haluavat luokitella kalenterikohteet sen perusteella, ovatko ne yksityisiä vai eivät. Koska kalenterissa yksityisillä kohteilla ei ole oletusarvoisia näkyvyyseroja, jotta yksityiset kohteet voidaan tunnistaa paljon helpommin, voit antaa Outlookin näyttää ne automaattisesti tietyllä värillä. Täällä opetamme sinulle 2 lähestymistapaa sen saamiseksi.

Tapa 1: Käytä ehdollista muotoilua

1. Sillä kutentart, käynnistä Outlook ja siirry Kalenteri-ruutuun.
2. Käännä sitten Näytä-välilehteä ja vaihda näkymäksi Kalenteri.
3. Napsauta seuraavaksi "Näytä asetukset" -painiketta.
4. Napsauta ponnahdusikkunassa Ehdollinen muotoilu.
5. Napsauta myöhemmin seuraavassa valintaikkunassa "Lisää" ja kirjoita nimi, kuten "Yksityinen".
6. Valitse sitten tietty väri, kuten "Tummanpunainen" esimerkilleni.
7. Napsauta sen jälkeen ”Ehto” -painiketta.
8. Vaihda seuraavassa valintaikkunassa Lisäasetukset-välilehteen ja lisää seuraava suodatin:

Sensitivity > equals > private

9. Napsauta lopuksi "Lisää luetteloon" ja useita "OK" tallentaaksesi tämän muotoilusäännön.
10. Tästä lähtien kaikki yksityiset kalenterikohteet näkyvät tummana.

Tapa 2: Käytä VBA: ssa ”Automaattinen väriluokittelu”

1. Luo ensin uusi väriluokka nimeltä ”Yksityinen” tietyllä värillä.
2. Käynnistä seuraavaksi Outlook VBA -editoriKuinka suorittaa VBA-koodi Outlookissa".
3. Laita sitten seuraava koodi ThisOutlookSession-projektiin.

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. Lopulta restart Outlook aktivoi tämän makron.
5. Nyt voit kokeilla.

• Valitse oletuskalenterin kohde.
• Vaihda sitten asetukseksi ”Yksityinen”.
• Tälle kohteelle määritetään kerralla yksityinen väriluokka, kuten seuraavassa kuvakaappauksessa näkyy.

Pelastaa arvokkaat Outlook-tiedot

Koska Outlook on haavoittuva, monille käyttäjille on aina aiheutunut PST-korruptiota. Yleensä, kun kohtaat sen, voit ensin kokeilla Saapuneet-kansion korjaustyökalu korjata tiedosto. Silti, jos se epäonnistuu, voit turvautua tehokkaampaan ja luotettavampaan ulkoiseen apuohjelmaan, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com