Create a shortcut or button to a Calendar Group RRS feed

  • Question

  • Hi. Is there a way to create a shortcut or button to a Calendar Group? I hide the left-side folder bar and it would be extremely convenient if I could put a button in the Ribbon or above the ribbon to a certain Calendar Group.
    • Moved by Steve Fan Tuesday, February 7, 2017 2:10 AM
    Monday, February 6, 2017 4:12 PM

All replies

  • I forgot to say -- Outlook 2013.
    Monday, February 6, 2017 4:51 PM
  • Hello,

    Based on my research, this is not possible via Outlook build-in options. However, it could be possible via a macro button in Outlook. Since we are not the best resource for coding, I'll move your question to the forum that is dedicated to Outlook development:

    The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.


    Steve Fan

    Please remember to mark the replies as answers if they helped.

    If you have feedback for TechNet Subscriber Support, contact

    Tuesday, February 7, 2017 2:10 AM
  • Hi,

    You could use code below to select folders in a calendar group.

    Sub SelectCalendars()
        Dim objPane As Outlook.NavigationPane
        Dim objModule As Outlook.CalendarModule
        Dim objGroup As Outlook.NavigationGroup
        Dim objNavFolder As Outlook.NavigationFolder
        Dim objCalendar As Folder
        Dim objFolder As Folder
        Dim i As Integer
        Set Application.ActiveExplorer.CurrentFolder = Session.GetDefaultFolder(olFolderCalendar)
        Set objCalendar = Session.GetDefaultFolder(olFolderCalendar)
        Set objPane = Application.ActiveExplorer.NavigationPane
        Set objModule = objPane.Modules.GetNavigationModule(olModuleCalendar)
        With objModule.NavigationGroups
            Set objGroup = .GetDefaultNavigationGroup(olMyFoldersGroup)
    ''     To use a different group
    '        Set objGroup = .Item("TestGroup")
        End With
        For Each navFolder In objGroup.NavigationFolders
        navFolder.IsSelected = True
        Set objPane = Nothing
        Set objModule = Nothing
        Set objGroup = Nothing
        Set objNavFolder = Nothing
        Set objCalendar = Nothing
        Set objFolder = Nothing
    End Sub

    Then you could follow to assign the macro to a button. The article is for Excel, but it is similar in Outlook.

    If you have any issue, please let me know.



    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact

    Wednesday, February 8, 2017 7:39 AM
  • Thank you very much. I will try it out.
    Monday, February 13, 2017 4:03 PM