RecurrencePattern.DayOfWeekMask 属性 (Outlook)

返回或设置一个 OlDaysOfWeek 常量，该常量代表定期约会或任务在星期几发生的掩码。 读/写。

语法

expression。 DayOfWeekMask

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

备注

已设置 介于 1 和 PatternEndDate 和 PatternStartDate 之前设置属性后，则应设置 年 。

按月和按年模式才对单独的天有效。 每周一次的模式仅为 或 的 年 有效。

示例

此Visual Basic for Applications示例使用 GetRecurrencePattern 获取新创建的 AppointmentItem 的 RecurrencePattern 对象。 设置了属性 RecurrenceType、 DayOfWeekMask、 PatternStartDate、 PatternEndDate、 Duration、 StartTime、 EndTime 和 Subject ，将保存约会，然后使用模式显示：“从 2006 年 7 月 10 日到 2006 年 8 月 25 日下午 2：00 至下午 3：00，每周一、星期三和星期五发生。”

Sub RecurringAppointmentEveryMondayWednesdayFriday() 
 
 Dim oAppt As AppointmentItem 
 
 Dim oPattern As RecurrencePattern 
 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 
 Set oPattern = oAppt.GetRecurrencePattern 
 
 With oPattern 
 
 .RecurrenceType = olRecursWeekly 
 
 .DayOfWeekMask = olMonday Or olWednesday Or olFriday 
 
 .PatternStartDate = #7/10/2006# 
 
 .PatternEndDate = #8/25/2006# 
 
 .Duration = 60 
 
 .StartTime = #2:00:00 PM# 
 
 .EndTime = #3:00:00 PM# 
 
 End With 
 
 oAppt.Subject = "Recurring Appointment Monday Wednesday Friday" 
 
 oAppt.Save 
 
 oAppt.Display 
 
End Sub

与上一示例类似，本 Visual Basic for Applications 示例也使用 GetRecurrencePattern 获取新创建的 AppointmentItem 的 RecurrencePattern 对象。 设置了属性 RecurrenceType、 DayOfWeekMask、 PatternStartDate、 PatternEndDate、 Duration、 StartTime、 EndTime 和 Subject ，将保存约会，然后显示模式：“从 2006 年 7 月 10 日起，每周一、周二、星期三、星期四和星期五发生，直到 2006 年 8 月 4 日。

Sub RecurringEventEveryWeekday() 
 
 Dim oPattern As Outlook.RecurrencePattern 
 
 Dim oAppt As Outlook.AppointmentItem 
 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 
 Set oPattern = oAppt.GetRecurrencePattern 
 
 With oPattern 
 
 .RecurrenceType = olRecursWeekly 
 
 .DayOfWeekMask = olMonday Or olTuesday Or olWednesday Or olThursday Or olFriday 
 
 .PatternStartDate = #7/10/2006# 
 
 .PatternEndDate = #8/4/2006# 
 
 .Duration = 1440 'Duration in minutes, for all day event = 24 * 60 
 
 .StartTime = #12:00:00 AM# 
 
 .EndTime = #12:00:00 AM# 
 
 End With 
 
 oAppt.Subject = "Recurring Event Every Weekday" 
 
 oAppt.Save 
 
 oAppt.Display 
 
End Sub

另请参阅

RecurrencePattern 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。