I adapted some code from MSDN Library:

Sub RecurringYearNth()
Dim objOutlook As Outlook.Application

Set objOutlook = GetObject(, _
"Outlook.Application")

Dim oAppt As Outlook.AppointmentItem
Dim oPattern As Outlook.RecurrencePattern
Set oAppt = objOutlook.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
End Sub

On Nov 12, 9:44 am, Naomi x <Naomi
wrote: