Click or drag to resize

IAppointmentRecurrenceRuleId Property

RecurrenceRuleId - Id for the recurrence rule for recurring appointments, otherwise 0.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
int RecurrenceRuleId { get; set; }

Property Value

Type: Int32
SoRecurrence - The recurrence rules Long
Examples

Recurrence

VB
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

VB
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

See Also