Outlook VBA 2010:导航组“我的日历”下的多个日历项目不是默认的“日历”项目。如何访问我创建的其他日历项目?
答案 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")
打开子文件夹