Hinzufügen eines Ordners zur Gruppe "Favoritenordner"

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

Sie können einen NavigationGroup-Objektverweis auf die Standardnavigationsgruppe für einen angegebenen Navigationsgruppentyp abrufen, indem Sie die GetDefaultNavigationGroup-Methode des NavigationGroups-Objekts verwenden.

In diesem Beispiel wird ein neuer E-Mail-Ordner für wichtige Elemente erstellt und ein benutzerdefinierter Navigationsordner für den neuen Ordner in der Navigationsgruppe Favoritenordner des E-Mail-Moduls hinzugefügt.

Hinweis Wenn Sie versuchen, der Liste Favoritenordner einen lösungsspezifischen Ordner hinzuzufügen, der für das Modul Projektmappen erstellt wird, löst Outlook einen Fehler aus.

Im Beispiel werden die folgenden Aktionen ausgeführt:

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

2. Anschließend wird in der Folders -Auflistung des Standardordners Posteingang ein neues Folder -Objekt namens "Wichtige Elemente" 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 MailModule -Objektverweis abzurufen.

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

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

Private Sub CreateImportantFavoritesFolder() 
    Dim objNamespace As NameSpace 
    Dim objInbox As Folder 
    Dim objFolder As Folder 
     
    Dim objPane As NavigationPane 
    Dim objModule As MailModule 
    Dim objGroup As NavigationGroup 
    Dim objNavFolder As NavigationFolder 
     
    On Error GoTo ErrRoutine 
     
    ' First, retrieve the default Inbox folder. 
    Set objNamespace = Application.GetNamespace("MAPI") 
    Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox) 
     
    ' Create a new mail folder named "Important Items". 
    Set objFolder = objInbox.Folders.Add("Important Items") 
         
    ' Get the NavigationPane object for the 
    ' currently displayed Explorer object. 
    Set objPane = Application.ActiveExplorer.NavigationPane 
     
    ' Get the mail module from the Navigation Pane. 
    Set objModule = objPane.Modules.GetNavigationModule(olModuleMail) 
     
    ' Get the "Favorite Folders" navigation group from the 
    ' mail module. 
    With objModule.NavigationGroups 
        Set objGroup = .GetDefaultNavigationGroup(olFavoriteFoldersGroup) 
    End With 
     
    ' Add a new navigation folder for the "Important Items" 
    ' folder in the "Favorite Folders" navigation group. 
    Set objNavFolder = objGroup.NavigationFolders.Add(objFolder) 
     
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, _ 
        "CreateImportantFavoritesFolder" 
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.