通过

在导航窗格中显示特定模块

  • 项目

Microsoft Outlook 中 NavigationPane 对象的 CurrentModule 属性确定导航窗格中当前显示的导航模块。 可以通过枚举 NavigationModules 集合或使用 NavigationModules 集合的 GetNavigationModule 方法，从 NavigationPane 对象检索对给定 NavigationModule 对象的引用。

如果通过编程方式或通过用户操作在导航窗格中选定了任何导航模块，下面的示例会将“邮件”导航模块设置为当前选定的导航模块。 本示例执行下列操作：

  1. 当引发 Application 对象的 Startup 事件并将其分配给 objPane时，该示例首先获取对活动资源管理器的 NavigationPane 对象的引用，以便可以检测到 NavigationPane 对象的 ModuleSwitch 事件。

  2. 当 NavigationPane 的 ModuleSwitch 事件发生时，该示例随后在 ModuleSwitch 事件的 CurrentModule 参数中检查 NavigationModule 对象引用的 NavigationModuleType 属性。

  3. 如果当前选定的 NavigationModule 对象的 NavigationModuleType 属性设置为 olModuleMail ，示例将使用 NavigationPane 对象的 NavigationModules 集合的 GetNavigationModule 方法尝试检索 MailModule 对象。 如果成功，示例最终会将 NavigationPane 对象的 CurrentModule 属性设置为检索到的 MailModule 对象引用。

Dim WithEvents objPane As NavigationPane 
 
Private Sub Application_Startup() 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
End Sub 
 
Private Sub objPane_ModuleSwitch(ByVal CurrentModule As NavigationModule) 
 Dim objModule As MailModule 
 
 If CurrentModule.NavigationModuleType <> olModuleMail Then 
 ' Use the GetModule method to obtain a MailModule from 
 ' the current NavigationPane object. 
 Set objModule = objPane.Modules.GetNavigationModule(olModuleMail) 
 
 ' Set the CurrentModule property to the MailModule. 
 Set objPane.CurrentModule = objModule 
 End If 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。