GetRecurrencePattern Method (AppointmentItem Object)
GetRecurrencePattern Method (AppointmentItem Object)
The GetRecurrencePattern method returns a RecurrencePattern object defining the recurrence attributes of an appointment.
Syntax
Set objRecurPatt = objAppointment.GetRecurrencePattern( )
objRecurPatt
On successful return, contains the RecurrencePattern object.
objAppointment
Required. This AppointmentItem object.
Remarks
If the appointment had already been specified as recurring, the GetRecurrencePattern method returns the RecurrencePattern object containing the current recurrence characteristics. If the appointment was previously nonrecurring, it is made recurring and GetRecurrencePattern returns a new RecurrencePattern object populated with the default values indicated in its property descriptions.
The IsRecurring property is set to True when the GetRecurrencePattern method is called.
Note You cannot use GetRecurrencePattern to test whether an appointment is recurring, because it always returns a RecurrencePattern object and forces the appointment to be recurring. Instead, you should test for recurrence using the IsRecurring property.
You can use the ClearRecurrencePattern method to return the appointment to nonrecurring status.
Calendar folders are not supported in the public folders store provided with Microsoft® Exchange, and AppointmentItem objects are stored as Message objects. An attempt to call ClearRecurrencePattern in this case returns CdoE_NO_SUPPORT.
Example
This code fragment makes an appointment recurring and changes its Subject property. It is equally valid for a nonrecurring appointment, an appointment originating a recurring series, and an individual recurrence in that series. If objAppt is nonrecurring before executing this fragment, it becomes the originator of a recurring series. If it is already an originator, doing objOrig.Update is equivalent to doing objAppt.Update.
Dim objAppt, objOrig As AppointmentItem
Dim objRecPatt As RecurrencePattern
' objAppt can be solitary, an originator, or a recurrence
Set objRecPatt = objAppt.GetRecurrencePattern
With objRecPatt
' set recurrence pattern properties as desired
End with
Set objOrig = objRecPatt.Parent
With objOrig
.Subject = "New subject for entire recurring series"
.Update ' necessary for any changes to take effect
End with
Note If objAppt in the preceding fragment is an individual recurrence, its properties are not changed by objOrig.Update. This is because changes you make in the original appointment only affect recurrences instantiated after the update. Because objAppt was already instantiated before the update, its Subject property is not updated when objOrig.Subject is. To avoid this problem, you can refresh objAppt by repeating the Set statement that instantiated it in the first place.