Për të dalluar më lehtë artikujt privatë nga ata jo-privatë në kalendar, mund të dëshironi t'i shfaqni automatikisht artikujt privatë me një ngjyrë specifike, siç është e kuqja, për t'i nxjerrë në pah. Ky postim do të prezantojë 2 mënyra për ta realizuar këtë.
Shumë përdorues preferojnë të klasifikojnë artikujt e kalendarit bazuar në faktin nëse janë privatë apo jo. Meqenëse, në kalendar, artikujt privatë nuk kanë dallime të dukshme në vizion si parazgjedhje, në mënyrë që të identifikohen artikujt privatë shumë më lehtë, mund ta lejoni Outlook që t'i shfaqë ato automatikisht në një ngjyrë specifike. Këtu do t'ju mësojmë 2 mënyra për ta marrë atë.
Metoda 1: Përdorni "Formatimin e kushtëzuar"
- Për të filluar, hapni Outlook dhe hyni në panelin "Kalendari".
- Më pas, kthehu te skeda "Shiko" dhe ndrysho pamjen në "Kalendar".

- Më pas, shtypni butonin "Shiko cilësimet".
- Në kutinë e dialogut që shfaqet, klikoni "Formatimi i kushtëzuar".
- Më vonë, në dialogun pasardhës, klikoni "Shto" dhe vendosni një emër, si "Private".
- Pastaj, zgjidhni një ngjyrë specifike, si "E kuqe e errët" për shembullin tim.
- Pas kësaj, klikoni në butonin "Kushti".
- Në kutinë tjetër të dialogut, kaloni në skedën "Advanced" dhe shtoni filtrin e mëposhtëm:
Sensitivity > equals > private
- Së fundi, klikoni "Shto në listë" dhe disa "OK" për të ruajtur këtë rregull të formatimit.
- Tani e tutje, të gjithë artikujt e kalendarit privat do të shfaqen në "E kuqe e errët".
Metoda 2: Përdorni "Auto Color Kategorize" në VBA
- Së pari, krijoni një kategori të re ngjyrash të quajtur "Private" me një ngjyrë specifike.
- Më pas, nisni redaktorin VBA të Outlook sipas "Si të ekzekutoni kodin VBA në Outlook tuaj".
- Më pas, vendosni kodin e mëposhtëm në projektin "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
- Përfundimisht, rinisni Outlook-un për të aktivizuar këtë makro.
- Tani mund të provoni.
- Paraqitni një artikull në kalendarin e paracaktuar.
- Pastaj, ndryshojeni atë në "Private".
- Menjëherë, kategoria e ngjyrave "Private" do t'i caktohet këtij artikulli, siç tregohet në pamjen e mëposhtme të ekranit.
Shpëtoni të dhënat tuaja të vlefshme të Outlook
Meqenëse Outlook është i pambrojtur, shumë përdorues kanë qenë ndonjëherë subjekt i korrupsionit PST. Në përgjithësi, kur e hasni, së pari mund të provoni mjet për riparimin e kutisë hyrëse për të rregulluar skedarin. Megjithatë, nëse dështon, mund të përdorni një mjet të jashtëm më të fuqishëm dhe të besueshëm, si p.sh. DataNumen Outlook Repair.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë korrupsioni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com






