Compartilhar via

Exibir módulos específicos no painel de navegação

  • Artigo

A propriedade CurrentModule do objeto NavigationPane , no Microsoft Outlook, determina qual módulo de navegação está atualmente exibido no Painel de Navegação. Você pode recuperar uma referência a um determinado objeto NavigationModule de um objeto NavigationPane enumerando a coleção NavigationModules ou usando o método GetNavigationModule da coleção NavigationModules .

O exemplo a seguir definirá o módulo de navegação Email como o módulo de navegação selecionado atualmente, se qualquer módulo de navegação for selecionado, programaticamente ou pela ação do usuário, no Painel de Navegação. O exemplo executa as seguintes ações:

  1. O exemplo primeiro obtém uma referência ao objeto NavigationPane para o explorador ativo quando o evento Inicialização do objeto Application é gerado e o atribui a , para objPaneque o evento ModuleSwitch do objeto NavigationPane possa ser detectado.

  2. Quando ocorre o evento ModuleSwitch do NavigationPane , o exemplo verifica a propriedade NavigationModuleType da referência de objeto NavigationModule no parâmetro CurrentModule do evento ModuleSwitch .

  3. Se a propriedade NavigationModuleType do objeto NavigationModule atualmente selecionado estiver definida como olModuleMail, o exemplo usará o método GetNavigationModule da coleção NavigationModules para o objeto NavigationPane para tentar recuperar um objeto MailModule . Se for bem-sucedido, o exemplo finalmente definirá a propriedade CurrentModule do objeto NavigationPane como a referência de objeto MailModule recuperada.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.