Share via

CalendarView.DaysInMultiDayMode 属性 (Outlook)

  • 项目

返回或设置一个 Long 类型，表示的连续 日历视图 对象中显示的天数。 读/写

语法

expression。 DaysInMultiDayMode

表达 一个代表 CalendarView 对象的变量。

备注

此属性可以设置为 2 和 14 之间的值。 如果此属性设置为小于 2 的值，则会将此属性设置为 2。 如果此属性设置为大于 14 的值，则会将此属性设置为 14。 此属性的默认值为 5。

示例

(VBA) 示例下面的 Visual Basic for Applications 日历默认文件夹中创建一个新 日历视图 ，然后配置它以显示连续的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。