Select the product you need help with

How To Extract Appointment Information from Schedule Plus

Article ID: 154575 - View products that this article applies to.

This article was previously published under Q154575

SUMMARY

The OLE Scheduling Library exposes an object model for Microsoft Schedule Plus 7.0 that can be manipulated by the VBA language. This object model allows programmers to gain access to appointment information. This article provides a code sample of how to extract appointment information between two given dates from Schedule Plus.

Back to the top | Give Feedback

MORE INFORMATION

Start Visual Basic. If Visual Basic is already running, choose New Project from the File menu. Form1 is created by default.
Place a Command button on Form1.

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

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.

Back to the top | Give Feedback

REFERENCES

OLE Messaging is fully documented in the Win32 SDK, available on the Microsoft Developer Network (MSDN).

OLE Scheduling is documented in the Microsoft Schedule+ Programmer's Guide found under Microsoft Exchange Server in the BackOffice SDK on the Microsoft Developer Network (MSDN).

The Mastering Series for Exchange Development, also available from Microsoft, has extensive Visual Basic code samples and explanations relating to OLE Scheduling.

Back to the top | Give Feedback