Exchange Server - Fetch all appointment data

[Safal]

What is still un clear to me is how will I get the appointment data for all
the users from the calendar. When I open my Calendar view from the server i
see data only relavant to me and no other user.

Here is the code I tried after looking at the explorer view on my outlook
window-

Set ol = CreateObject("Outlook.Application")
Set olns = ol.GetNameSpace("MAPI")
Set MyFolder1 = olns.Folders("MyRoot")
Set MyFolder2 = MyFolder1.Folders("Calendar")
Set itms = MyFolder2.Items
For Each itm in itms
If itm.Start <> "" Then MsgBox DateValue(itm.Start)
Next

This script when run from my machine gets all the appoinment data specific
to me.
So how do i get appointment data stored for all the users from the exchange
server ? Should i run this script on the machine that has the exchange
installed ? Or are there other work-arounds ?

 

[Sue Mosher [MVP-Outlook]]

You can use Outlook's Namespace.GetSharedDefaultFolder method to return any other user's Calendar folder that you have permission to see.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers