RecurrencePattern.DayOfWeekMask 屬性 (Outlook)

會傳回或設定 OlDaysOfWeek 常數，代表發生週期性約會或工作之星期幾的遮罩。 讀取/寫入。

語法

expression。 DayOfWeekMask

表達 代表 RecurrencePattern 物件的 變數。

註解

DayOfWeekMask 應在設定 RecurrenceType 屬性之後，以及設定 PatternEndDate 和 PatternStartDate 屬性之前設定。

每月和每年模式只對單一的日子有效。 每週模式只有在當做 DayOfWeekMask 的 Or 時才有效。

範例

這個 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 支援與意見反應。