Question

Outlook VBA 2010：导航组“我的日历”下的多个日历项目不是默认的“日历”项目。如何访问我创建的其他日历项目？

Answer 1

Outlook.NavigationGroup包含许多Outlook.Folder个对象。以下演示说明如何访问日历的导航组和组内的日历。

Sub CalendarDemo()
    Dim objPane As Outlook.NavigationPane
    Dim objModule As Outlook.CalendarModule
    Dim objGroup As Outlook.NavigationGroup
    Dim objNavFolder As Outlook.NavigationFolder

    Set objPane = Application.ActiveExplorer.NavigationPane
    Set objModule = objPane.Modules.GetNavigationModule(olModuleCalendar)
    Set objGroup = objModule.NavigationGroups.item(1)

    For Each objNavFolder In objGroup.NavigationFolders
        Debug.Print objNavFolder.DisplayName & " " & objNavFolder.Folder.FolderPath
    Next
End Sub

查看related post。

Answer 2

这些文件夹在哪里创建？如果他们是默认日历文件夹的子项，则可以通过首先使用Namespace.GetDefaultFolder(olFolderCalendar)检索主日历文件夹来访问文件夹名称，使用MAPIFolder.Folders.Item("My Folder Name")打开子文件夹

Outlook VBA 2010：访问“我的日历”

2 个答案: