Lai kalendārā vieglāk atšķirtu privātus vienumus no citiem, varat automātiski rādīt privātus vienumus noteiktā krāsā, piemēram, sarkanā, lai tos izceltu. Šajā ierakstā tiks iepazīstināts ar diviem veidiem, kā to izdarīt.
Daudzi lietotāji izvēlas klasificēt kalendāra vienumus pēc tā, vai tie ir privāti vai nē. Tā kā kalendārā privātajiem priekšmetiem pēc noklusējuma nav acīmredzamu atšķirību redzējumā, lai daudz vieglāk identificētu privātos priekšmetus, varat ļaut programmai Outlook tos automātiski rādīt noteiktā krāsā. Šeit mēs iemācīsim jums 2 pieejas, lai to iegūtu.
1. metode: izmantojiet nosacīto formatēšanu
- Lai sāktu, palaidiet programmu Outlook un atveriet rūti “Kalendārs”.
- Pēc tam pārejiet uz cilni “Skatīt” un mainiet skatu uz “Kalendārs”.
- Pēc tam nospiediet pogu Skatīt iestatījumus.
- Uznirstošajā dialoglodziņā noklikšķiniet uz “Nosacījuma formatēšana”.
- Vēlāk nākamajā dialoglodziņā noklikšķiniet uz “Pievienot” un ievadiet vārdu, piemēram, “Privāts”.
- Pēc tam manai instancei atlasiet noteiktu krāsu, piemēram, “Tumši sarkans”.
- Pēc tam noklikšķiniet uz pogas “Nosacījums”.
- Nākamajā dialoglodziņā pārslēdzieties uz cilni Papildu un pievienojiet šādu filtru:
Sensitivity > equals > private
- Visbeidzot, noklikšķiniet uz “Pievienot sarakstam” un vairākas “Labi”, lai saglabātu šo formatēšanas kārtulu.
- Turpmāk visi privātā kalendāra vienumi tiks parādīti “Dark Red”.
2. metode: VBA izmantojiet opciju “Automātiskā krāsu kategorizēšana”
- Vispirms izveidojiet jaunu krāsu kategoriju ar nosaukumu “Privāts” ar noteiktu krāsu.
- Pēc tam palaidiet Outlook VBA redaktoru atbilstoši “Kā palaist VBA kodu programmā Outlook".
- Pēc tam projektā “ThisOutlookSession” ievietojiet šādu kodu.
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
- Visbeidzot, restartējiet programmu Outlook, lai aktivizētu šo makro.
- Tagad jūs varat izmēģināt.
- Pieskarieties vienumam noklusējuma kalendārā.
- Pēc tam nomainiet to uz “Privāts”.
- Vienlaikus šim vienumam tiks piešķirta krāsu kategorija “Privāta”, kā parādīts nākamajā ekrānuzņēmumā.
Glābiet savus vērtīgos Outlook datus
Tā kā programma Outlook ir neaizsargāta, daudzi lietotāji vienmēr ir bijuši pakļauti PST korupcijai. Parasti, saskaroties ar to, vispirms varat izmēģināt iesūtnes labošanas rīks lai salabotu failu. Tomēr, ja tas neizdodas, varat izmantot spēcīgāku un uzticamāku ārējo utilītu, piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar