IAppointmentRecurrenceRuleId Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Recurrence
Dim db, Dates, Appnt Set db = CreateObject("SuperOfficeDB.Database") enPatternDaily = 1 enSubPatternDaily_EveryDay = 2 enThisAndForward = 2 If db.Login("USERNAME", "PASSWORD") Then Set Appnt = db.GetAppointment(4) Appnt.Recurrence.Pattern = enPatternDaily Appnt.Recurrence.SubPattern = enSubPatternDaily_EveryDay Appnt.Recurrence.StartDate = appnt.DoBy Appnt.Recurrence.EndDate = DateAdd("d", 5, appnt.DoBy) Appnt.UpdateMode = enThisAndForward Set Dates = Appnt.Recurrence.ComputeDates If Not Dates.Empty Then For i = 0 To Dates.Count - 1 msg = msg & Dates.Item(i) & ", " msg = msg & Dates.Exists(i) & vbCrLf Next MsgBox msg, vbInformation, "Appointments created on" End If Appnt.Save Else MsgBox ("failed to log in") End If
RecurrenceRuleId
dim db Dim appnt, msg Set db = CreateObject("SuperOfficedb.Database") if db.login("<username>","<password>") then set appnt = db.GetAppointment(458) msg = "Description:" & appnt.Description & vbcrlf msg = msg & "Appointment Owner: " & appnt.Associate.LoginName & vbcrlf msg = msg & "Assigned by: " & appnt.AssignedBy & vbcrlf msg = msg & "PrivateToGroup: " & appnt.PrivateToGroup.Id & vbcrlf msg = msg & "RecurrenceRuleId: " & appnt.RecurrenceRuleId & vbcrlf msg = msg & "Location: " & appnt.Location & vbcrlf msg = msg & "AllDayEvent: " & appnt.AllDayEvent & vbcrlf msg = msg & "FreeBusy: " & appnt.FreeBusy & vbcrlf msg = msg & "Group: " & appnt.Group.Id & vbcrlf msg = msg & "RejectCounter: " & appnt.RejectCounter & vbcrlf msg = msg & "RejectReason: " & appnt.RejectReason & vbcrlf msg = msg & "Emailid: " & appnt.Emailid & vbcrlf msg = msg & "AssignedBy: " & appnt.AssignedBy & vbcrlf msg = msg & "PublishType: " & appnt.PublishType & vbcrlf msg = msg & "IsRecurring: " & appnt.IsRecurring & vbcrlf msg = msg & "Leadtime: " & appnt.LeadTime & vbcrlf msg = msg & "UpdateMode: " & appnt.UpdateMode & vbcrlf msgbox (msg) else MsgBox "Could not log on" end if Set objSO = Nothing