Automation to open a nondefault folder in Outlook from Access

[LeonePak]

Hello,
I searched MS web site and found

objItem = Session.GetDefaultFolder(olFolderCalendar)

to open the default Calendar folder from Access.

Is there a way to open a new calendar folder I created in Outlook from Access?


Many Thanks.

 

[sha76]

Hi,

This is the code I use to open a public contacts folder, you should hopefully be able to adapt it to what you need:

Set ol = Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set objAllFolders = olns.Folders("Public Folders")
Set objPublicFolders = objAllFolders.Folders("All Public Folders")
Set objFolder = objPublicFolders.Folders("External Contacts")

Sharon