HOWTO: Extract Appointment Information from Schedule Plus

ID: Q154575


The information in this article applies to:
  • Microsoft Visual Basic Standard, Professional, and Enterprise Editions, 16-bit and 32-bit, for Windows, version 4.0


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.


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.



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.

Additional query words:

Keywords : kbprg kbVBp400 IAPOLE VB4WIN vbwin
Version : WINDOWS:4.0
Platform : WINDOWS
Issue type : kbhowto


Last Reviewed: October 21, 1999
© 2000 Microsoft Corporation. All rights reserved. Terms of Use.