Platform SDK: Exchange Server |
Schedule+ allows you to define recurring events. The exact event dates are determined by a recurrence pattern that specifies on which days, weeks, months, or years the event recurs.
To create a recurring event
The following sample code creates an annual event starting on the current date and sets a reminder two days before the event:
Sub CreateRecurringEvent () Dim objTable As Object, objItem As Object Dim dt As Date, dtNotify As Date 'Get the RecurringEvents table from the global Schedule object. Set objTable = gobjSchedule.RecurringEvents 'Create a new item in the RecurringEvents table. Set objItem = objTable.New 'Set the desired properties on the item. dt=Now objItem.SetProperties Text:="OLE: CreateAnnualEvent " & Now(), _ AccessActual:=saclOwner, _ Ring:=True, AlarmAmount:=2, _ AlarmTypeUnit:=typeunitDay, BeforeEnd:=False, _ RecurringType:=trecurYearlySpecific, YearInterval:=1, _ DayOfMonthMask:=(2 ^ (Day(dt) - 1)), _ MonthOfYearMask:=(2 ^ (Month(dt) - 1)), _ StartRecurringDate:=LConvertTo32bitDate(dt) 'Release the objects. Set objItem = Nothing Set objTable = Nothing End Sub