Чтобы легче различать личные элементы и неличные элементы в календаре, вы можете автоматически отображать личные элементы определенным цветом, например красным, чтобы выделить их. Это рost представит 2 способа реализовать это.
Многие пользователи предпочитают классифицировать элементы календаря в зависимости от того, являются ли они личными или нет. Поскольку в календаре личные элементы не имеют видимых различий по умолчанию, чтобы упростить идентификацию личных элементов, вы можете разрешить Outlook автоматически отображать их определенным цветом. Здесь мы научим вас 2 подходам, чтобы получить его.
Способ 1: используйте «Условное форматирование»
- Для насtart, запустите Outlook и откройте панель «Календарь».
- Затем перейдите на вкладку «Вид» и измените вид на «Календарь».
- Затем нажмите кнопку «Просмотреть настройки».
- Во всплывающем диалоговом окне нажмите «Условное форматирование».
- Позже в следующем диалоговом окне нажмите «Добавить» и введите имя, например «Частный».
- Затем выберите определенный цвет, например «Темно-красный» для моего экземпляра.
- После этого нажмите кнопку «Условие».
- В следующем диалоговом окне перейдите на вкладку «Дополнительно» и добавьте следующий фильтр:
Sensitivity > equals > private
- Наконец, нажмите «Добавить в список» и несколько «ОК», чтобы сохранить это правило форматирования.
- Отныне все личные элементы календаря будут отображаться «темно-красным».
Способ 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
- В конце концов, резtart Outlook, чтобы активировать этот макрос.
- Теперь вы можете попробовать.
- Предложите элемент в календаре по умолчанию.
- Затем измените его на «Частный».
- Сразу же этому элементу будет присвоена цветовая категория «Частная», как показано на следующем снимке экрана.
Спасите ваши ценные данные Outlook
Поскольку Outlook уязвим, многие пользователи когда-либо подвергались повреждению PST. В общем, столкнувшись с ним, вы можете сначала попробовать инструмент для ремонта входящих исправить файл. Тем не менее, если это не удается, вы можете прибегнуть к более мощной и надежной внешней утилите, например DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая sql-повреждение и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com