Afficher des modules spécifiques dans le volet de navigationDisplay Specific Modules in the Navigation Pane

La propriété CurrentModule de l’objet NavigationPane , dans Microsoft Outlook, détermine le module de navigation actuellement affiché dans le volet de navigation.The CurrentModule property of the NavigationPane object, in Microsoft Outlook, determines which navigation module is currently displayed in the Navigation Pane. 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 .You can retrieve a reference to a given NavigationModule object from a NavigationPane object by either enumerating the NavigationModules collection or by using the GetNavigationModule method of the NavigationModules collection.

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.The following sample sets the Mail navigation module as the currently selected navigation module if any navigation module is selected, either programmatically or by user action, in the Navigation Pane. Il permet d'effectuer les actions suivantes :The sample performs the following actions:

  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 lui affecte objPane, afin que l’événement ModuleSwitch de l’objet NavigationPane puisse être détecté.The sample first obtains a reference to the NavigationPane object for the active explorer when the Startup event of the Application object is raised and assigns it to objPane, so the ModuleSwitch event of the NavigationPane object can be detected.

  2. Lorsque l’événement ModuleSwitch de NavigationPane se produit, l’exemple vérifie la propriété NavigationModuleType de la référence d’objet NavigationModule dans le paramètre CurrentModule de l’événement ModuleSwitch .When the ModuleSwitch event of the NavigationPane occurs, the sample then checks the NavigationModuleType property of the NavigationModule object reference in the CurrentModule parameter of the ModuleSwitch event.

  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 de l’objet NavigationPane pour essayer de récupérer un objet MailModule .If the NavigationModuleType property of the currently selected NavigationModule object is set to olModuleMail, the sample uses the GetNavigationModule method of the NavigationModules collection for the NavigationPane object to attempt to retrieve a MailModule object. Si elle réussit, l’exemple définit la propriété CurrentModule de l’objet NavigationPane sur la référence de l’objet MailModule extrait.If successful, the sample finally sets the CurrentModule property of the NavigationPane object to the retrieved MailModule object reference.

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 commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.