Freigeben über

Hinzufügen eines benutzerdefinierten Ordners zu einer Gruppe und Anzeigen des Ordners im Überlagerungsmodus standardmäßig

  • Artikel

Sie können einer Navigationsgruppe in Microsoft Outlook mithilfe der Add -Methode der NavigationFolders -Auflistung für ein NavigationGroup -Objekt benutzerdefinierte Navigationsordner hinzufügen. Die Add-Methode akzeptiert einen Folder-Objektverweis , dem der benutzerdefinierte Navigationsordner zugeordnet ist.

Wenn der benutzerdefinierte Navigationsordner einem Kalenderordner zugeordnet ist, können Sie auch die IsSideBySide-Eigenschaft des NavigationFolder-Objekts verwenden, um zu bestimmen, ob der Inhalt des benutzerdefinierten Navigationsordners nebeneinander oder im Überlagerungsmodus angezeigt wird.

In diesem Beispiel wird ein neuer Kalenderordner für Firmenveranstaltungen erstellt und ein benutzerdefinierter Navigationsordner für den neuen Ordner hinzugefügt, sodass der benutzerdefinierte Navigationsordner so konfiguriert ist, dass er standardmäßig überlagert angezeigt wird.

In diesem Beispiel werden die folgenden Aktionen ausgeführt:

  1. Das Beispiel erhält einen Folder -Objektverweis für den Standardordner Kalender des aktuellen Benutzers. Dazu wird die GetDefaultFolder -Methode des NameSpace -Objekts verwendet.

  2. Anschließend wird in der Folders -Auflistung des Standardordners Kalender ein neues Folder -Objekt namens "Firmenveranstaltungen" erstellt, das den neuen Kalenderordner darstellt.

  3. Das Beispiel erhält dann einen Verweis auf das NavigationPane -Objekt für den aktiven Explorer. Es wird die GetNavigationModule -Methode der NavigationModules -Auflistung verwendet, um einen CalendarModule -Objektverweis abzurufen.

  4. Anschließend wird die GetDefaultNavigationGroup -Methode der NavigationGroups -Auflistung für CalendarModule verwendet, um einen NavigationGroup -Objektverweis auf die Navigationsgruppe Meine Kalender zu erhalten.

  5. Dann wird der Navigationsgruppe ein neues NavigationFolder -Objekt basierend auf dem zuvor im Beispiel erstellten Folder -Objekt mithilfe der Add -Methode der NavigationGroups -Auflistung für diese Navigationsgruppe hinzugefügt.

  6. Anschließend wird die CurrentModule -Eigenschaft des NavigationPane -Objekts auf den CalendarModule -Objektverweis festgelegt, um sicherzustellen, dass das Navigationsmodul Kalender im Navigationsfenster angezeigt wird.

  7. Schließlich wird dann der Navigationsordner im Beispiel konfiguriert:

    • Im Beispiel wird die IsSelected -Eigenschaft auf True festgelegt, um sie im aktiven Explorer anzuzeigen.
  • Dann wird die IsSideBySide -Eigenschaft auf False festgelegt, um sie standardmäßig überlagert anzuzeigen.
Private Sub CreateCompanyEventsFolder() 
 Dim objNamespace As NameSpace 
 Dim objCalendar As Folder 
 Dim objFolder As Folder 
 
 Dim objPane As NavigationPane 
 Dim objModule As CalendarModule 
 Dim objGroup As NavigationGroup 
 Dim objNavFolder As NavigationFolder 
 
 On Error GoTo ErrRoutine 
 
 ' First, retrieve the default calendar folder. 
 Set objNamespace = Application.GetNamespace("MAPI") 
 Set objCalendar = objNamespace.GetDefaultFolder(olFolderCalendar) 
 
 ' Create a new calendar folder named "Company Events". 
 Set objFolder = objCalendar.Folders.Add("Company Events", olFolderCalendar) 
 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
 
 ' Get the calendar module from the Navigation Pane. 
 Set objModule = objPane.Modules.GetNavigationModule(olModuleCalendar) 
 
 ' Get the "My Calendars" navigation group from the 
 ' calendar module. 
 With objModule.NavigationGroups 
 Set objGroup = .GetDefaultNavigationGroup(olMyFoldersGroup) 
 End With 
 
 ' Add a new navigation folder for the "Company Events" 
 ' folder in the "My Calendars" navigation group. 
 Set objNavFolder = objGroup.NavigationFolders.Add(objFolder) 
 
 ' Set the navigation folder to be displayed in overlay mode 
 ' by default. The IsSelected property can't be set to True 
 ' unless the CalendarModule object is the current module 
 ' displayed in the Navigation Pane. 
 Set objPane.CurrentModule = objModule 
 objNavFolder.IsSelected = True 
 objNavFolder.IsSideBySide = False 
 
EndRoutine: 
 On Error GoTo 0 
 
 Set objNavFolder = Nothing 
 Set objFolder = Nothing 
 Set objGroup = Nothing 
 Set objModule = Nothing 
 Set objPane = Nothing 
 Set objNamespace = Nothing 
 
 Exit Sub 
 
ErrRoutine: 
 MsgBox Err.Number & " - " & Err.Description, _ 
 vbOKOnly Or vbCritical, _ 
 "CreateCompanyEventsFolder" 
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.