К сожалению, День / Неделя / Месяц - это всего лишь расположение одного представления, а не отдельных представлений. Таким образом, вы можете отфильтровать встречи на весь день, используя Расширенный фильтр ( Событие на весь день не равно Да ), но это будет применяться ко всем мероприятиям.
Кроме того, вы можете создать представления «День / Неделя / Месяц», один из которых фильтрует события на весь день, а другой - нет.
VBA способ. Вам нужно будет создать отдельное представление для каждого из мероприятий (в приведенном ниже примере это представления с именами «Дни», «Недели» и «Месяцы»):
Public WithEvents OutlookExplorer As Outlook.Explorer
Private Sub Application_Startup()
Set OutlookExplorer = ActiveExplorer
End Sub
Private Sub OutlookExplorer_ViewSwitch()
Set View = OutlookExplorer.CurrentView
If View.ViewType = 2 Then
If View.Name = "Days" And View.CalendarViewMode <> 0 Then
View.CalendarViewMode = 0
View.Save
ElseIf View.Name = "Weeks" And View.CalendarViewMode <> 1 Then
View.CalendarViewMode = 1
View.Save
ElseIf View.Name = "Months" And View.CalendarViewMode <> 2 Then
View.CalendarViewMode = 2
View.Save
End If
End If
End Sub
Теперь правильное расположение будет применено автоматически при переключении на одно из пользовательских представлений («Дни», «Недели» или «Месяцы»). Кроме того, вы можете разместить кнопку «Изменить вид» прямо на вкладке «Главная» на ленте календаря.