Поделиться через

Отображение определенных модулей в области навигации

  • Статья

Свойство CurrentModule объекта NavigationPane в Microsoft Outlook определяет, какой модуль навигации в настоящее время отображается в области навигации. Ссылку на данный объект NavigationModule можно получить из объекта NavigationPane , перечислив коллекцию NavigationModules или используя метод GetNavigationModule коллекции NavigationModule .

В следующем примере модуль навигации "Почта " задается в качестве выбранного в данный момент модуля навигации, если какой-либо модуль навигации выбран программным способом или действием пользователя в области навигации. В примере выполняются следующие действия:

  1. Пример сначала получает ссылку на объект NavigationPane для активного обозревателя при возникновении события Startup объекта Application и назначает его objPane, чтобы можно было обнаружить событие ModuleSwitch объекта NavigationPane .

  2. При возникновении события ModuleSwitchобъекта NavigationPane пример проверяет свойство NavigationModuleType ссылки на объект NavigationModule в параметре CurrentModule события ModuleSwitch .

  3. Если для свойства NavigationModuleType выбранного объекта NavigationModule задано значение olModuleMail, в примере используется метод GetNavigationModule коллекции NavigationModules для объекта NavigationPane , чтобы попытаться получить объект MailModule . В случае успешного выполнения пример задает для свойства CurrentModule объекта NavigationPane полученную ссылку на объект 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 и обратная связь.