RecurrencePattern.DayOfWeekMask Property (Outlook)
Returns or sets an OlDaysOfWeek constant representing the mask for the days of the week on which the recurring appointment or task occurs. Read/write.
Syntax
expression .DayOfWeekMask
expression A variable that represents a RecurrencePattern object.
Remarks
The DayOfWeekMask should be set after the RecurrenceType property has been set and before the PatternEndDate and PatternStartDate properties are set.
Monthly and yearly patterns are only valid for a single day. Weekly patterns are only valid as the Or of the DayOfWeekMask.
Example
This Visual Basic for Applications example uses GetRecurrencePattern to obtain the RecurrencePattern object for the newly-created AppointmentItem. The properties, RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, Duration, StartTime, EndTime, and Subject are set, the appointment is saved and then displayed with the pattern: "Occurs every Monday, Wednesday, and Friday effective 7/10/2006 until 8/25/2006 from 2:00 PM to 3:00 PM."
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
Similar to the last example, this Visual Basic for Applications example also uses GetRecurrencePattern to obtain the RecurrencePattern object for the newly-created AppointmentItem. The properties, RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, Duration , StartTime, EndTime, and Subject are set, the appointment is saved and then displayed with the pattern: "Occurs every Monday, Tuesday, Wednesday, Thursday, and Friday effective 7/10/2006 until 8/4/2006."
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