How To Extract Appointment Information from Schedule Plus

MORE INFORMATION

1. Start Visual Basic. If Visual Basic is already running, choose New Project from the File menu. Form1 is created by default.
2. Place a Command button on Form1.
3. Add the following code to the General Declarations section of Form1:

      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
   						

4. Press the F5 key to run the project. When you click on the button, the appointments that fall into the date range specified will be printed onto the form.