RecurrencePatterns Interface

[David A. Tabor]

I am synchronizing appointments from my personal calendar to an office
calendar which is a public folder. The issue I'm having is with
recurring appointments. I can add a recurring appointment, but i can't
distinguish between a regular appointment and a recurring one. In
other words in VB6 IF APPOINTMENT IS RECURRING DO THIS, ELSE DO THIS.

This is how I'm adding the recurring appointment:

' Check for Recurring Appointments
Set objRecurrence = .RecurrencePatterns.Add("Add")

With objRecurrence

.Frequency =
objPersonalAppointment.GetRecurringMaster.Recurren cePatterns(1).Frequency
.Instances =
objPersonalAppointment.GetRecurringMaster.Recurren cePatterns(1).Instances
.Interval =
objPersonalAppointment.GetRecurringMaster.Recurren cePatterns(1).Interval
.PatternEndDate =
objPersonalAppointment.GetRecurringMaster.Recurren cePatterns(1).PatternEndDate

End With


Help with this would be greatly appreciated,

David