Partager via


DayOfWeekMask Property

OlDaysOfWeek

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

Applies to | RecurrencePattern Object