Օրացույցում անձնական և ոչ անձնական տարրերն ավելի հեշտությամբ տարբերակելու համար կարող եք ցանկանալ անձնական տարրերը ավտոմատ կերպով ցուցադրել որոշակի գույնով, օրինակ՝ կարմիրով՝ դրանք ընդգծելու համար: Այս գրառումը կներկայացնի դա իրականացնելու 2 եղանակ:
Շատ օգտվողներ նախընտրում են դասակարգել օրացույցի իրերը ՝ ելնելով դրանց մասնավոր լինելուց, թե ոչ: Քանի որ օրացույցում մասնավոր իրերը տեսողության մեջ ակնհայտորեն տարբերություն չունեն, որպեսզի շատ ավելի հեշտությամբ ճանաչեն մասնավոր իրերը, կարող եք թույլ տալ, որ Outlook- ը ավտոմատ ցուցադրի դրանք որոշակի գույնով: Այստեղ մենք կսովորեցնենք ձեզ այն ստանալու 2 մոտեցում:
Մեթոդ 1. Օգտագործեք «Պայմանական ձևաչափում»
- Սկսելու համար բացեք Outlook-ը և մուտք գործեք «Օրացույց» վահանակ։
- Դրանից հետո միացրեք «Դիտել» ներդիրին և փոխել տեսքը «Օրացույց»:
- Հաջորդը, սեղմեք «Դիտել պարամետրերը» կոճակը:
- Պատուհանի երկխոսության պատուհանում կտտացրեք «Պայմանական ձևավորում»:
- Հետագայում, հաջորդ երկխոսության մեջ, կտտացրեք «Ավելացնել» և մուտքագրեք անուն, ինչպիսին է «Մասնավոր»:
- Դրանից հետո ընտրեք որոշակի գույն, օրինակ `« Dark Red »- ը իմ օրինակի համար:
- Դրանից հետո կտտացրեք «Վիճակ» կոճակին:
- Հաջորդ երկխոսության դաշտում անցեք «Ընդլայնված» էջանիշին և ավելացրեք հետևյալ զտիչը.
Sensitivity > equals > private
- Վերջապես, կտտացրեք «Ավելացնել ցուցակին» և մի քանի «OK» ՝ այս ձևաչափման կանոնը պահպանելու համար:
- Այսուհետ, օրացույցի բոլոր մասնավոր տարրերը կցուցադրվեն «Մուգ կարմիր» գույներով:
Մեթոդ 2. VBA- ում օգտագործեք «Ավտոմատ գույնի դասակարգում»
- Նախևառաջ, ստեղծեք նոր գույների կատեգորիա `« Մասնավոր », հատուկ գույնով:
- Հաջորդը, գործարկեք Outlook VBA խմբագիրն ըստ «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
- Հետո հետևյալ կոդը տեղադրեք «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
- Վերջապես, վերագործարկեք Outlook-ը՝ այս մակրոն ակտիվացնելու համար։
- Այժմ կարող եք փորձել:
- Տեղադրեք իրը լռելյայն օրացույցում:
- Դրանից հետո փոխեք այն «Մասնավոր» -ի:
- Միանգամից այս նյութին կհանձնվի «Մասնավոր» գույնի կատեգորիա, ինչպես ցույց է տրված հետևյալ նկարում:
Փրկեք ձեր արժեքավոր Outlook տվյալները
Քանի որ Outlook– ը խոցելի է, շատ օգտվողներ երբևէ ենթարկվել են PST կոռուպցիայի: Ընդհանրապես, դրան հանդիպելիս նախ կարող եք փորձել այն մուտքի արկղի վերանորոգման գործիք ֆայլը շտկելու համար: Այնուամենայնիվ, եթե այն ձախողվի, կարող եք դիմել ավելի հզոր և հուսալի արտաքին օգտակարության, ինչպիսին է DataNumen Outlook Repair.
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql կոռուպցիան և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com