Kad kalendoriuje būtų lengviau atskirti asmeninius ir neasmeninius elementus, galite automatiškai rodyti asmeninius elementus konkrečia spalva, pavyzdžiui, raudona, kad juos paryškintumėte. Šiame įraše pristatysime 2 būdus, kaip tai padaryti.
Daugelis vartotojų nori klasifikuoti kalendoriaus elementus pagal tai, ar jie privatūs, ar ne. Kadangi kalendoriuje privatūs elementai pagal numatytuosius nustatymus neturi akivaizdžių vaizdo skirtumų, kad būtų lengviau atpažinti privačius elementus, galite leisti Outlook automatiškai rodyti juos tam tikra spalva. Čia mes išmokysime jus 2 būdų, kaip tai pasiekti.
1 būdas: naudokite „sąlyginį formatavimą“
- Norėdami pradėti, paleiskite „Outlook“ ir eikite į „Kalendoriaus“ sritį.
- Tada pasukite į skirtuką „View“ ir pakeiskite rodinį į „Kalendorius“.
- Tada paspauskite mygtuką „Peržiūrėti nustatymus“.
- Iššokančiajame dialogo lange spustelėkite „Sąlyginis formatavimas“.
- Vėliau kitame dialogo lange spustelėkite „Pridėti“ ir įveskite pavadinimą, pvz., „Privatus“.
- Tada pasirinkite konkrečią spalvą, pvz., „Tamsiai raudona“ mano atvejui.
- Po to spustelėkite mygtuką „Sąlyga“.
- Kitame dialogo lange pereikite prie skirtuko „Išplėstinė“ ir pridėkite šį filtrą:
Sensitivity > equals > private
- Galiausiai spustelėkite „Pridėti prie sąrašo“ ir keletą „Gerai“, kad išsaugotumėte šią formatavimo taisyklę.
- Nuo šiol visi privatūs kalendoriaus elementai bus rodomi „tamsiai raudonai“.
2 būdas: VBA naudokite „Auto Color Categorize“.
- Pirmiausia sukurkite naują spalvų kategoriją „Privati“ su konkrečia spalva.
- Tada paleiskite „Outlook VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Outlook“.".
- Tada įdėkite šį kodą į projektą „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
- Galiausiai paleiskite „Outlook“ iš naujo, kad suaktyvintumėte šią makrokomandą.
- Dabar galite pabandyti.
- Nurodykite elementą numatytame kalendoriuje.
- Tada pakeiskite jį į „Privatus“.
- Iš karto šiam elementui bus priskirta „Privati“ spalvų kategorija, kaip parodyta toliau esančioje ekrano kopijoje.
Išsaugokite vertingus „Outlook“ duomenis
Kadangi „Outlook“ yra pažeidžiama, daugelis vartotojų kada nors buvo pažeidžiami PST. Apskritai, susidūrę su juo, pirmiausia galite išbandyti pašto dėžutės taisymo įrankis pataisyti failą. Tačiau, jei tai nepavyksta, galite kreiptis į galingesnį ir patikimesnį išorinį įrankį, pvz DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com