make appointment in outlook using data in excel -- set recurrence

[tegger topwith]

make appointment in outlook using data in excel

In this macro how do I sent the reccurence to the same day every year?

Sub SetAppointment()

Dim olApp As Outlook.Application
Dim olApt As AppointmentItem

Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)

With olApt
.AllDayEvent = True
.Start = Range("B2") 'date of birth
.Subject = Range("A2") 'family member's name
.Categories = "Personal"
.BusyStatus = olFree
.ReminderSet = True
.ReminderMinutesBeforeStart = 240
.Save
End With

Set olApt = Nothing
Set olApp = Nothing

End Sub