DayOfWeekMask Property

Microsoft Outlook Visual Basic

Returns or sets an OlDaysOfWeek constant representing the mask for the days of the week on which the recurring appointment or task occurs. Monthly and yearly patterns are only valid for a single day. Weekly patterns are only valid as the Or of the DayOfWeekMask. Read/write.

OlDaysOfWeek can be one of these OlDaysOfWeek constants.
olFriday
olMonday
olSaturday
olSunday
olThursday
olTuesday
olWednesday

expression.DayOfWeekMask

expression     Required. An expression that returns a RecurrencePattern object.

Example

This Visual Basic for Applications example uses GetRecurrencePattern to obtain the RecurrencePattern object for the newly-created AppointmentItem. The properties, RecurrenceType, DayOfWeekMask , PatternStartDate, Interval, PatternEndDate, and Subject are set, the appointment is saved and then displayed with the pattern: "Occurs every 3 week(s) on Monday effective 1/21/98 until 12/21/2001 from 2:00 PM to 5:00 PM."

Sub CreateAppointment()
	Dim myOlApp As Outlook.Application
	Dim myApptItem As AppointmentItem
	Dim myRecurrPatt As RecurrencePattern
	Set myOlApp = New outlook.Application
	Set myApptItem = myOlApp.CreateItem(olAppointmentItem)
	Set myRecurrPatt = myApptItem.GetRecurrencePattern

	myRecurrPatt.RecurrenceType = olRecursWeekly
	myRecurrPatt.DayOfWeekMask = olMonday
	myRecurrPatt.PatternStartDate = #1/21/1998 2:00:00 PM#
	myRecurrPatt.Interval = 3
	myRecurrPatt.PatternEndDate = #12/21/2001 5:00:00 PM#
	myApptItem.Subject = "Important Appointment"
	myApptItem.Save
	myApptItem.Display

End Sub
		

If you use VBScript, you do not create the Application object, and you cannot use named constants. This example shows how to perform the same task using 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