За да разграничите по-лесно частните и не частните елементи в календара, може да искате да покажете автоматично частни елементи в определен цвят, като червено, за да ги подчертаете. Това стрost ще въведе 2 начина да го реализира.
Много потребители предпочитат да класифицират елементи в календара въз основа на това дали са частни или не. Тъй като в календара частните елементи по подразбиране нямат явни различия във визията, така че да идентифицират много по-лесно частните елементи, можете да позволите на Outlook да ги показва автоматично в определен цвят. Тук ще ви научим на 2 подхода, за да го получите.
Метод 1: Използвайте „Условно форматиране“
- За катоtart, стартирайте Outlook и отворете прозореца „Календар“.
- След това преминете към раздела „Преглед“ и променете изгледа на „Календар“.
- След това натиснете бутона „Преглед на настройките“.
- В изскачащия диалогов прозорец щракнете върху „Условно форматиране“.
- По-късно в следващия диалогов прозорец щракнете върху „Добавяне“ и въведете име, като „Частно“.
- След това изберете конкретен цвят, като „Тъмно червен“ за моя пример.
- След това щракнете върху бутона „Състояние“.
- В следващия диалогов прозорец превключете към раздела „Разширени“ и добавете следния филтър:
Чувствителност> равно> частно
- Накрая щракнете върху „Добавяне към списъка“ и няколко „ОК“, за да запазите това правило за форматиране.
- Отсега нататък всички частни елементи от календара ще се показват в „Тъмно червено“.
Метод 2: Използвайте “Auto Color Categorize” във VBA
- Първо, създайте нова категория цветове, наречена „Частен“ със специфичен цвят.
- След това стартирайте редактора на Outlook VBA според „Как да стартирате VBA код във вашия Outlook".
- След това поставете следния код в проекта “ThisOutlookSession”.
Частно WithEvents objCalendarItems като Outlook.Items Частно подзаявление_Startup () Задайте objCalendarItems = Outlook.Application.Session.GetDefaultFolder (olFolderCalendar) .Items End Sub Private Sub objCalendarItems_ItemAdd (ByVal Елемент като обект) Dim objCalendarItem Като Outlook.AppointingItem objCalendarrideCataCtemndaritemCalendarjtemCalendarjtemCalendarjtemCalendarjtemCalendarjtemCalendarjtemCalendarjtemCalendarjtemCalendarjtemCalendarItemCalendarjtemCalendarjtemCalendarItemjtemCalendarjtemCalendarjtemCalendarjtemCalendarItemCalendarjtemCalendarjtemCalendarjtemCalendarjtemCalendarItemCalendarjtemCalendaritemCalendarItemCenter = "Private" Else Call RemovePrivateCategory (objCalendarItem, "Private") End If objCalendarItem.Save End Sub Private Sub objCalendarItems_ItemChange (ByVal Елемент като обект) Dim objCalendarItem As Outlook.AppointingItem Set objCalendarItem = Item If objCalendarItemCalendartematoltemtemaltemator "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 (objCurrent, ObjCurrent, ObjCurrent, Ob.Current, Ob.Current, ObjCur, Split. , ") Ако UBound (varCategories)> = 0 Тогава за i = 0 към UBound (varCategories) Ако Tr im (varCategories (i)) = strCategory След това varCategories (i) = "" objCurrentItem.Categories = Присъединяване (varCategories, ",") Изход от Sub End Ако Следващ Край Ако End Sub
- В крайна сметка, резtart Outlook, за да активирате този макрос.
- Сега можете да опитате.
- Преместете елемент в календара по подразбиране.
- След това го променете на „Частно“.
- Веднага на този елемент ще бъде присвоена категория „Частен“ цвят, както е показано на следващата екранна снимка.
Спасете ценните си данни в Outlook
Тъй като Outlook е уязвим, много потребители някога са били обект на PST корупция. Като цяло, когато го срещнете, можете първо да опитате инструмент за ремонт на входящата кутия за да поправите файла. И все пак, ако не успее, можете да прибегнете до по-мощна и надеждна външна програма, като DataNumen Outlook Repair.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com