Freigeben über

Anzeigen bestimmter Module im Navigationsbereich

  • Artikel

Die CurrentModule -Eigenschaft des NavigationPane -Objekts in Microsoft Outlook legt fest, welches Navigationsmodul aktuell im Navigationsbereich angezeigt wird. Sie können einen Verweis auf ein bestimmtes NavigationModule-Objekt aus einem NavigationPane-Objekt abrufen, indem Sie entweder die NavigationModules-Auflistung auflisten oder die GetNavigationModule-Methode der NavigationModules-Auflistung verwenden.

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. Im Beispiel werden die folgenden Aktionen ausgeführt:

  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.

  2. Wenn das ModuleSwitch-Ereignis des NavigationPane-Objekts auftritt, überprüft das Beispiel die NavigationModuleType-Eigenschaft des NavigationModule-Objektverweis im CurrentModule-Parameter des ModuleSwitch-Ereignisses .

  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. Wenn diese Aktion erfolgreich ist, wird im Beispiel schließlich für die CurrentModule -Eigenschaft des NavigationPane -Objekts auf die abgerufene MailModule -Objektreferenz festgelegt.

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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.