GetDefaultNavigationGroup(olMyFoldersGroup)įor i = 1 To Set objCalendar = Session.GetDefaultFolder(olFolderCalendar) Set = Session.GetDefaultFolder(olFolderCalendar) To use a specific view, see set a view at the end of this article.ĭim objNavFolder As Outlook.NavigationFolder More complete instructions are at How to use the VBA Editor. Assign it to a ribbon or toolbar button and run. To use, set macro security to low, open the VBA editor by pressing Alt+F11 then paste this into a new module. When you use Outlook 2013 and all of the calendars are in one group, you can select the group to show all. To open 2 and 5 (New Stuff and a mailbox Calendar in the screenshot), I'd use Case 2, 5 In this code sample, I'm opening calendars #1, 3, and 4 in the My Calendars group. If the calendars are all in another group, you can use this line to identify the group and select the calendars in it: