none
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:

    https://social.msdn.microsoft.com/Forums/office/en-US/home?forum=outlookdev

    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.

    Regards,

    Steve Fan


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

    If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com.

    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)
        DoEvents
        
        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
        Next
    
        Set objPane = Nothing
        Set objModule = Nothing
        Set objGroup = Nothing
        Set objNavFolder = Nothing
        Set objCalendar = Nothing
        Set objFolder = Nothing
    End Sub

    Then you could follow https://support.office.com/en-us/article/Assign-a-macro-to-a-button-728c83ec-61d0-40bd-b6ba-927f84eb5d2c 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.

    Regards,

    Celeste


    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 MSDNFSF@microsoft.com.

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