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- 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.
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
|