返回或设置表示定期约会或任务在星期几发生的掩码。OlDaysOfWeek 常量。按月或按年模式仅对单独的一天有效。按周模式仅在作为 DayOfWeekMask 的 Or 时有效。可读写。
OlDaysOfWeek 可为以下 OlDaysOfWeek 常量之一。 |
olFriday |
olMonday |
olSaturday |
olSunday |
olThursday |
olTuesday |
olWednesday |
expression.DayOfWeekMask
expression 必选。该表达式返回 RecurrencePattern 对象。
本 Visual Basic for Applications 示例使用 GetRecurrencePattern 来获得最近创建的 AppointmentItem 的 RecurrencePattern 对象。设置 RecurrenceType、DayOfWeekMask、PatternStartDate、Interval、PatternEndDate 和 Subject 属性,并保存该约会,然后按模式“每 3 周的周一下午 2:00 到 5:00 之间发生,有效时间为 98 年 1 月 21 日到 2001 年 12 月 21 日之间”显示约会。
Set myOlApp = New Outlook.Application
Set myApptItem = myOlApp.CreateItem(olAppointmentItem)
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursWeekly
myRecurrPatt.DayOfWeekMask = olMonday
myRecurrPatt.PatternStartDate = #1/21/98 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2001 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display
如果使用 VBScript,则不创建 Application 对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。
Set myApptItem = Application.CreateItem(1)
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = 1
myRecurrPatt.DayOfWeekMask = 2
myRecurrPatt.PatternStartDate = #1/21/98 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2001 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display