Свойство CalendarView.DaysInMultiDayMode (Outlook)
Возвращает или задает значение Long , представляющее количество последовательных дней, отображаемых в объекте CalendarView . Чтение и запись
Синтаксис
выражение. DaysInMultiDayMode
Выражение Переменная, представляющая объект CalendarView .
Замечания
Для этого свойства можно задать значение от 2 до 14. Если для этого свойства задано значение меньше 2, свойство имеет значение 2. Если для этого свойства задано значение больше 14, свойство имеет значение 14. Значение по умолчанию для этого свойства — 5.
Пример
В следующем примере Visual Basic для приложений (VBA) создается новый объект CalendarView в папке Calendar по умолчанию, а затем настраивается для отображения 14 последовательных дней в многодневном режиме с элементами Outlook, отображаемыми в почасовой шкале времени.
Sub CreateTwoWeekView()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objView As CalendarView
' Obtain Folder object reference to the Calendar default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
' Create a new CalendarView object named "Two Weeks".
Set objView = objFolder.Views.Add("Two Weeks", _
olCalendarView, _
olViewSaveOptionAllFoldersOfType)
' Configure the new CalendarView object.
With objView
' Display the view in multi-day mode.
.CalendarViewMode = olCalendarViewMultiDay
' Display 14 consecutive days in multi-day
' mode.
.DaysInMultiDayMode = 14
' Set the time scale for the view in one-hour
' intervals.
.DayWeekTimeScale = olTimeScale60Minutes
' Save and apply the new CalendarView object.
.Save
.Apply
End With
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.