Someone wrote simple code that exports a calendar to a file for reference by
other users. We recently migrated to Exchange and I need to figure out how
to change the code to export the new OST file. Snippet of code is as
follows:

'Set reference to Specified Calendar folder
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set MyFolder1 = olns.Folders("Personal Folders")

'Set Calendar Folder Below
Set MyFolder2 = MyFolder1.Folders("CRITICAL DATES CALENDAR")
Set fld = MyFolder2

How do I change this to reference the new outlook.ost file used by Exchange?

Thanks!

Since the OST file would be your default store you can just get the Inbox
folder (NameSpace.GetDefaultFolder(olFolderInbox). It's Parent property
object would be the Mailbox folder you see at the top of the folder list.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Karl Burrows" wrote in message
...
Someone wrote simple code that exports a calendar to a file for reference
by
other users. We recently migrated to Exchange and I need to figure out
how
to change the code to export the new OST file. Snippet of code is as
follows:

'Set reference to Specified Calendar folder
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set MyFolder1 = olns.Folders("Personal Folders")

'Set Calendar Folder Below
Set MyFolder2 = MyFolder1.Folders("CRITICAL DATES CALENDAR")
Set fld = MyFolder2

How do I change this to reference the new outlook.ost file used by
Exchange?

Thanks!