RecurrencePattern.RecurrenceType Property (Outlook)
Returns or sets an OlRecurrenceType constant specifying the frequency of occurrences for the recurrence pattern. Read/write.
Syntax
expression .RecurrenceType
expression A variable that represents a RecurrencePattern object.
Remarks
You must set the RecurrenceType property before you set other properties for a RecurrencePattern object. The RecurrencePattern properties that you can set subsequently depends on the value of RecurrenceType, as shown in the following table:
OlRecurrenceType |
Valid RecurrencePattern Properties |
olRecursDaily |
Duration , EndTime, Interval, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime |
olRecursWeekly |
DayOfWeekMask , Duration, EndTime, Interval, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime |
olRecursMonthly |
DayOfMonth , Duration, EndTime, Interval, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime |
olRecursMonthNth |
DayOfWeekMask, Duration, EndTime, Interval, Instance, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime |
olRecursYearly |
DayOfMonth, Duration, EndTime, Interval, MonthOfYear, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime |
olRecursYearNth |
DayOfWeekMask, Duration, EndTime, Interval, Instance, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime |
Example
This Visual Basic for Applications example uses GetRecurrencePattern to obtain the RecurrencePattern object for the newly-created AppointmentItem. The properties, RecurrenceType , DayOfWeekMask, MonthOfYear, Instance, Occurences, StartTime, EndTime, and Subject are set, the appointment is saved and then displayed with the pattern: "Occurs the first Monday of June effective 6/1/2007 until 6/6/2016 from 2:00 PM to 5:00 PM."
Sub RecurringYearNth()
Dim oAppt As AppointmentItem
Dim oPattern As RecurrencePattern
Set oAppt = Application.CreateItem(olAppointmentItem)
Set oPattern = oAppt.GetRecurrencePattern
With oPattern
.RecurrenceType = olRecursYearNth
.DayOfWeekMask = olMonday
.MonthOfYear = 6
.Instance = 1
.Occurrences = 10
.Duration = 180
.PatternStartDate = #6/1/2007#
.StartTime = #2:00:00 PM#
.EndTime = #5:00:00 PM#
End With
oAppt.Subject = "Recurring YearNth Appointment"
oAppt.Save
oAppt.Display
End Sub