Query Microsoft Exchange Calendars

Posted on 2014-11-05
Last Modified: 2014-11-10
Hi Experts, just checking whether there is a way of querying the contents of users calendars and populating a public folder or Excel spreadsheet or text file or using ASP.NET/VB.NET. In our case we want to query all the appointments/meetings for the sales team and put them in one place for the management to see their movements without manual intervention. Is this possible?
Question by:takwirirar
1 Comment
LVL 24

Accepted Solution

Phillip Burton earned 500 total points
ID: 40423762
Yes - to get your relevant calendar folder, use this code:

    Set nms = Application.GetNamespace("MAPI")
    Set fld = nms.Folders("NAME").Folders("Calendar") 

Open in new window

And then loop through the items in that folder:

for each itm in fld.Items
   debug.print itm.Start, itm.End, itm.Subject

Open in new window

There will be some error-checking you will need to add, and exporting it into the spreadsheet or text file etc., but those are the basics.

Featured Post

Are your corporate email signatures appalling?

Is it scary how unprofessional your email signatures look? Do users create their own terrible designs and give themselves stupid job titles? You can make this a lot easier for yourself by choosing an email signature management solution from Exclaimer today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Find out how to use Active Directory data for email signature management in Microsoft Exchange and Office 365.
Following basic email etiquette rules will help you write a professional email and achieve a good, lasting impression with your contacts.
In this video we show how to create an Address List in Exchange 2013. We show this process by using the Exchange Admin Center. Log into Exchange Admin Center.: First we need to log into the Exchange Admin Center. Navigate to the Organization >> Ad…
This video discusses moving either the default database or any database to a new volume.

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now