how do i set up a repeating meeting in outlook?

D

David Biddulph

Firstly, you'd be better asking in an Outlook group, not an Excel group.
Secondly, please put the question in the body of the message, not just in
the subject line.
[And thirdly, Outlook help will give you the answer.]
 
I

iliace

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
 
Top