IRecurrenceStartDate Property |
Namespace: SuperOffice.COM.SuperOfficeDB
StartDate
Dim db As New Database If db.Login("<username>", "<password>") Then Dim appnt As SOAppointment appnt = db.GetAppointment(414) appnt.Recurrence.Pattern = EnRecurrencePattern.enPatternDaily appnt.Recurrence.SubPattern = EnRecurrenceSubPattern.enSubPatternDaily_EveryDay appnt.Recurrence.StartDate = New Date(2005, 12, 1) appnt.Recurrence.EndDate = New Date(2005, 12, 7) appnt.UpdateMode = EnRecurrenceUpdateMode.enThisAndForward appnt.Recurrence.ComputeDates() appnt.Save() Else MsgBox("failed to log in") End If