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

时间:2016-01-03 14:20:46

标签: vba outlook

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

2 个答案:

答案 0 :(得分: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

答案 1 :(得分:0)

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