Exchange Server - Fetch all appointment data

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Safal - 28 Nov 2006 08:54 GMT

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 ?

Reply to this Message

Sue Mosher [MVP-Outlook] - 28 Nov 2006 12:11 GMT

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

Signature

Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

> 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
[quoted text clipped - 17 lines]
> server ? Should i run this script on the machine that has the exchange
> installed ? Or are there other work-arounds ?

Reply to this Message