Anzeigen bestimmter Module im NavigationsbereichDisplay Specific Modules in the Navigation Pane

Die CurrentModule -Eigenschaft des NavigationPane -Objekts in Microsoft Outlook legt fest, welches Navigationsmodul aktuell im Navigationsbereich angezeigt wird.The CurrentModule property of the NavigationPane object, in Microsoft Outlook, determines which navigation module is currently displayed in the Navigation Pane. Sie können einen Verweis auf ein bestimmtes NavigationModule -Objekt aus einem NavigationPane -Objekt abrufen, indem Sie entweder die NavigationModules -Auflistung aufzählen oder die GetNavigationModule -Methode der NavigationModules -Auflistung verwenden.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.

Im folgenden Beispiel wird das Navigationsmodul E-Mail entweder programmgesteuert oder durch Benutzeraktion im Navigationsbereich als derzeit ausgewähltes Navigationsmodul festgelegt, sofern ein Navigationsmodul ausgewählt ist.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. Im Beispiel werden die folgenden Aktionen ausgeführt:The sample performs the following actions:

  1. Im Beispiel wird zunächst eine Referenz auf das NavigationPane -Objekt für den aktiven Explorer abgerufen, wenn das Startup -Ereignis des Application -Objekts aufgerufen wurde, und dem objPane-Code hinzugefügt, sodass das ModuleSwitch -Ereignis des NavigationPane -Objekts erkannt werden kann.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. Wenn das ModuleSwitch -Ereignis des NavigationPane auftritt, überprüft das Beispiel die NavigationModuleType -Eigenschaft des NavigationModule -Objektverweises im CurrentModule -Parameter des ModuleSwitch -Ereignisses.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. Wenn für die NavigationModuleType -Eigenschaft des aktuell ausgewählten NavigationModule -Objekts olModuleMail festgelegt ist, wird im Beispiel die GetNavigationModule -Methode der NavigationModules -Sammlung für das NavigationPane -Objekt verwendet, um ein MailModule abzurufen.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. Wenn diese Aktion erfolgreich ist, wird im Beispiel schließlich für die CurrentModule -Eigenschaft des NavigationPane -Objekts auf die abgerufene MailModule -Objektreferenz festgelegt.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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.