2 методи автоматичного показу елементів приватного календаря у певному кольорі у вашому Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Щоб легше розрізняти приватні записи та загальнодоступні в календарі, ви можете автоматично відображати приватні записи певним кольором, наприклад, червоним, щоб виділити їх. У цій публікації буде представлено 2 способи реалізації цього.

Багато користувачів воліють класифікувати елементи календаря залежно від того, приватні вони чи ні. Оскільки в календарі приватні предмети за замовчуванням не мають явних відмінностей у зорі, щоб набагато легше ідентифікувати приватні предмети, ви можете дозволити програмі Outlook автоматично відображати їх у певному кольорі. Тут ми навчимо вас 2-х підходів до його отримання.

Спосіб 1: Використовуйте “Умовне форматування”

  1. Для початку запустіть Outlook та відкрийте панель «Календар».
  2. Потім перейдіть на вкладку «Вид» і змініть подання на «Календар».Calendar View
  3. Потім натисніть кнопку "Перегляд налаштувань".
  4. У спливаючому діалоговому вікні натисніть «Умовне форматування».Умовне форматування
  5. Пізніше, у наступному діалоговому вікні натисніть «Додати» та введіть ім’я, наприклад «Приватне».
  6. Потім виберіть певний колір, наприклад, «Темно-червоний» для мого примірника.Виберіть Колір умовного форматування
  7. Після цього натисніть кнопку “Стан”.
  8. У наступному діалоговому вікні перейдіть на вкладку «Додатково» та додайте такий фільтр:
Sensitivity > equals > private

Встановіть вибір кольорового фільтра умовного форматування

  1. Нарешті, натисніть «Додати до списку» та кілька «ОК», щоб зберегти це правило форматування.
  2. Відтепер усі приватні елементи календаря будуть відображатися темно-червоним кольором.Приватні предмети темного кольору

Спосіб 2: Використовуйте функцію "Автоматична класифікація кольорів" у VBA

  1. По-перше, створіть нову кольорову категорію під назвою “Приватна” з певним кольором.
  2. Далі запустіть редактор Outlook VBA відповідно до “Як запустити код VBA у своєму Outlook».
  3. Потім вкладіть наступний код у проект “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

Код VBA - Автоматичне відображення приватних елементів календаря в певному кольорі

  1. Зрештою, перезапустіть Outlook, щоб активувати цей макрос.
  2. Тепер ви можете спробувати.
  • Розмістіть елемент у календарі за замовчуванням.
  • Потім змініть його на “Приватне”.Змініть елемент календаря на приватний
  • Одразу цьому елементу буде присвоєна категорія кольорів “Приватна”, як показано на наступному скріншоті.Автопризначена "приватна" кольорова категорія

Врятуйте цінні дані Outlook

Оскільки Outlook є вразливим, багато користувачів коли-небудь зазнавали корупції PST. Загалом, зіткнувшись із ним, ви можете спочатку спробувати інструмент для ремонту вхідних - щоб виправити файл. Однак, якщо це не вдається, ви можете вдатися до більш потужної та надійної зовнішньої утиліти, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.