Afficher des modules spécifiques dans le volet de navigation

La propriété CurrentModule de l’objet NavigationPane , dans Microsoft Outlook, détermine quel module de navigation est actuellement affiché dans le volet de navigation. Vous pouvez récupérer une référence à un objet NavigationModule donné à partir d’un objet NavigationPane en énumérant la collection NavigationModules ou en utilisant la méthode GetNavigationModule de la collection NavigationModules .

L'exemple ci-dessous définit le module de navigation Courrier comme le module de navigation actuellement sélectionné si un module de navigation est sélectionné, par le biais de la programmation ou par l'intervention de l'utilisateur dans le Volet de navigation. Il permet d'effectuer les actions suivantes :

1. L’exemple obtient d’abord une référence à l’objet NavigationPane pour l’explorateur actif lorsque l’événement Startup de l’objet Application est déclenché et l’affecte à objPane, afin que l’événement ModuleSwitch de l’objet NavigationPane puisse être détecté.

2. Lorsque l’événement ModuleSwitch du NavigationPane se produit, l’exemple vérifie ensuite la propriété NavigationModuleType de la référence de l’objet NavigationModule dans le paramètre CurrentModule de l’événement ModuleSwitch .

3. Si la propriété NavigationModuleType de l’objet NavigationModule actuellement sélectionné est définie sur olModuleMail, l’exemple utilise la méthode GetNavigationModule de la collection NavigationModules pour l’objet NavigationPane afin de tenter de récupérer un objet MailModule . En cas de réussite, l’exemple définit enfin la propriété CurrentModule de l’objet NavigationPane sur la référence d’objet MailModule récupérée.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.