How to read other users appointment items?

[Heiko Falkenhof]

Hi,

for reporting reasons I need to read other users appointment items
from their calendars on an Exchange 2K Server. My code has to run on a
client. The users gave me the rights to read their calendars.
I need only appointment items of a special category (not coded in
example) and a time interval from mystartdate to myenddate.
The example at the end of this message shows what I'm doing now.
It lasts up to 5 Minutes to read a users calendar.

How can I get this information much faster? Which alternatives to mapi
to exists? Some code examples would be very fine.
Thank you.
Heiko

Dim olApp As Outlook.Application
Dim olExplorers As Outlook.Explorers
Dim olExpl As Outlook.Explorer
Dim ns As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder

Set olApp = New Outlook.Application
Set ns = olApp.GetNamespace("MAPI")
Set myRecipient = ns.CreateRecipient(Account)
myRecipient.Resolve

Set olFolder = _
ns.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
For N = 1 To olFolder.Items.Count
Set olAppt = olFolder.Items(N)
With olAppt
If .Start <= mystartdate And .End >= myenddate Or _
mystartdate <= .Start And myenddate >= .Start Or _
mystartdate <= .End And myenddate >= .End Then
...

 

[Sue Mosher [MVP]]

You can use the Items.Restrict method to return a filtered Items collection
that meets your critgeria. See http://www.slipstick.com/dev/finddate.htm for
details on incorporating dates into the search string.