2 метода за автоматично показване на елементи от частен календар в определен цвят във вашия Outlook

Споделете сега:

За да разграничите по-лесно частните и не частните елементи в календара, може да искате да покажете автоматично частни елементи в определен цвят, като червено, за да ги подчертаете. Това стрost ще въведе 2 начина да го реализира.

Много потребители предпочитат да класифицират елементи в календара въз основа на това дали са частни или не. Тъй като в календара частните елементи по подразбиране нямат явни различия във визията, така че да идентифицират много по-лесно частните елементи, можете да позволите на Outlook да ги показва автоматично в определен цвят. Тук ще ви научим на 2 подхода, за да го получите.

Метод 1: Използвайте „Условно форматиране“

  1. За катоtart, стартирайте Outlook и отворете прозореца „Календар“.
  2. След това преминете към раздела „Преглед“ и променете изгледа на „Календар“.Календар View
  3. След това натиснете бутона „Преглед на настройките“.
  4. В изскачащия диалогов прозорец щракнете върху „Условно форматиране“.Условно форматиране
  5. По-късно в следващия диалогов прозорец щракнете върху „Добавяне“ и въведете име, като „Частно“.
  6. След това изберете конкретен цвят, като „Тъмно червен“ за моя пример.Изберете Цвят за условно форматиране
  7. След това щракнете върху бутона „Състояние“.
  8. В следващия диалогов прозорец превключете към раздела „Разширени“ и добавете следния филтър:
Чувствителност> равно> частно

Задайте Избор на цветен филтър за условно форматиране

  1. Накрая щракнете върху „Добавяне към списъка“ и няколко „ОК“, за да запазите това правило за форматиране.
  2. Отсега нататък всички частни елементи от календара ще се показват в „Тъмно червено“.Частни предмети в тъмен цвят

Метод 2: Използвайте “Auto Color Categorize” във VBA

  1. Първо, създайте нова категория цветове, наречена „Частен“ със специфичен цвят.
  2. След това стартирайте редактора на Outlook VBA според „Как да стартирате VBA код във вашия Outlook".
  3. След това поставете следния код в проекта “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

VBA код - Автоматично показване на частни елементи от календара в определен цвят

  1. В крайна сметка, резtart Outlook, за да активирате този макрос.
  2. Сега можете да опитате.
  • Преместете елемент в календара по подразбиране.
  • След това го променете на „Частно“.Променете елемент от календара на частен
  • Веднага на този елемент ще бъде присвоена категория „Частен“ цвят, както е показано на следващата екранна снимка.Автоматично присвоена "Частна" цветна категория

Спасете ценните си данни в Outlook

Тъй като Outlook е уязвим, много потребители някога са били обект на PST корупция. Като цяло, когато го срещнете, можете първо да опитате инструмент за ремонт на входящата кутия за да поправите файла. И все пак, ако не успее, можете да прибегнете до по-мощна и надеждна външна програма, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.