How To Extract Appointment Information from Schedule Plus

   Option Explicit

   Private Sub Command1_Click()
     GetAppointments "06/03/96", "08/03/96"
   End Sub

   Sub GetAppointments(sStartdate As String, sEndDate As String)
     Dim objSchdPlus As Object
     Dim gobjappt As Object
     Dim objappt As Object
     Dim objitem As Object
     Dim obatt As Object
     Screen.MousePointer = vbHourglass
     Set objSchdPlus = CreateObject("SchedulePlus.Application")
     objSchdPlus.Logon
     Set gobjappt = objSchdPlus.ScheduleSelected
     Print objSchdPlus.UserName
     Set objappt = gobjappt.singleappointments
     Set objitem = objappt.Item()
     Print objappt.Rows
     While Not objappt.IsEndOfTable
       Set objitem = objappt.Item()
       If CDate(objitem.start) >= CDate(Format$(sStartdate, "dd/mm/yy") & _
         " 00:00:00") And CDate(objitem.end) <= CDate(Format$(sEndDate, _
         "dd/mm/yy") & " 23:59:59") Then
         Print "Starts " & objitem.start & "---" & "Ends " & objitem.end
         Print "Appointment := " & objitem.Text
       End If
       objappt.Skip
     Wend
     Screen.MousePointer = vbArrow
     MsgBox "Done"
   End Sub