Privaatsete üksuste ja mitteprivaatsete üksuste lihtsamaks eristamiseks kalendris võite soovida privaatseid üksusi automaatselt kuvada kindla värviga, näiteks punase, et need esile tõsta. See post tutvustab 2 viisi selle realiseerimiseks.
Paljud kasutajad eelistavad liigitada kalendriüksusi selle järgi, kas need on privaatsed või mitte. Kuna kalendris ei ole privaatsetel üksustel vaikimisi nähtavaid erinevusi, nii et privaatseid üksusi oleks palju lihtsam tuvastada, saate lasta Outlookil neid automaatselt teatud värviga kuvada. Siin õpetame teile selle saamiseks 2 lähenemisviisi.
1. meetod: kasutage tingimusvormingut
- Sest nagutart, käivitage Outlook ja minge paanile "Kalender".
- Seejärel minge vahekaardile "Vaade" ja muutke vaateks "Kalender".
- Järgmisena klõpsake nuppu "Kuva seaded".
- Hüpikdialoogiboksis klõpsake "Tingimuslik vormindamine".
- Hiljem klõpsake järgmises dialoogis "Lisa" ja sisestage nimi, näiteks "Privaatne".
- Seejärel valige minu näite jaoks konkreetne värv, näiteks "Tumepunane".
- Pärast seda klõpsake nuppu "Tingimus".
- Järgmises dialoogiboksis minge vahekaardile "Täpsemalt" ja lisage järgmine filter.
Tundlikkus > võrdub > privaatne
- Lõpuks klõpsake selle vormindamise reegli salvestamiseks nuppu "Lisa loendisse" ja mitut "OK".
- Nüüdsest kuvatakse kõik privaatsed kalendrikirjed “tumepunasena”.
2. meetod: kasutage VBA-s valikut „Automaatne värvide kategoriseerimine”.
- Kõigepealt looge konkreetse värviga uus värvikategooria nimega "Privaatne".
- Järgmisena käivitage Outlook VBA redaktor vastavalt "Kuidas Outlookis VBA-koodi käivitada".
- Seejärel sisestage projekti "ThisOutlookSession" järgmine kood.
Privaatne sündmustega objCalendarItems Outlook.Items Privaatne alamrakendus_Startup() Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items End Sub Private Sub objCalendarItems_ItemAdd(ByVal Item As Object) Dim objCalendarItem As Outlook.Appointment Object I = ObjtemI =ObjtemCsitaItem. ivity = olPrivaatne Seejärel 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 ObjtemlendarI =SitemlendarI =SittemlendarI =SittemlendarI =SittemlendarI =SittemlendarI =SitmlendarI =Sit. Privaatne Siis objCalendarItem.Categories = "Privaatne" helistage RemotePrivateCategory (Objcalendaritem, "Privaat"), kui objcalendaritem.Save End Sub Sub RemogePrivateCategory (BYVAL objcurrentItem kui objekt, byref strcategory kui string) kui dim vargsgooriad kui variant hämar I kui pikkade varraste (Sflectorys, (ObjcurrentItem,, "Objcurrentitem," ,") If UBound(varCategories) >= 0 Then For i = 0 To UBound(varCategories) If Trim(varCategories(i)) = strCategory Siis varCategories(i) = "" objCurrentItem.Categories = Join(varCategories, "," ) Välju Sub End Kui Järgmine End Kui End Sub
- Lõpuks restart Outlook selle makro aktiveerimiseks.
- Nüüd saate proovida.
- Määrake vaikekalendris olevale üksusele.
- Seejärel muutke see "Privaatseks".
- Sellele üksusele määratakse kohe privaatne värvikategooria, nagu on näidatud järgmisel ekraanipildil.
Päästke oma väärtuslikud Outlooki andmed
Kuna Outlook on haavatav, on paljud kasutajad kunagi olnud PST korruptsiooni all. Üldiselt võite sellega kokku puutudes esmalt proovida postkasti parandamise tööriist faili parandamiseks. Kuid kui see ebaõnnestub, võite kasutada võimsamat ja usaldusväärsemat välist utiliiti, näiteks DataNumen Outlook Repair.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom