How To Extract Appointment Information from Schedule Plus 7.0

MORE INFORMATION

1. Start a new Standard EXE project. Form1 is added by default.
2. Place a CommandButton 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" 'dd/mm/yy format
         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 ";
                  Print 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 on the form.