将文件夹添加到收藏夹文件夹组

可以使用 NavigationGroup 对象的 NavigationFolders 集合的 Add 方法,将文件夹添加到 Microsoft Outlook 中的“收藏夹”导航组。 Add 方法接受与自定义导航文件夹关联的 Folder 对象引用。

可以使用 NavigationGroups 对象的 GetDefaultNavigationGroup 方法检索对指定导航组类型的默认导航 组的 NavigationGroup 对象引用。

下面的示例为重要邮件新建一个邮件文件夹,并在“邮件”模块的“收藏夹”导航组中为该文件夹添加一个自定义导航文件夹。

注意 如果尝试为“解决方案”模块创建的特定于解决方案的文件夹添加到“收藏夹”列表,Outlook 将引发错误。

此示例会执行下列操作:

  1. 此示例通过使用 NameSpace 对象的 GetDefaultFolder 方法获取当前用户的收件箱默认文件夹的 Folder 对象引用。

  2. 然后,它会在“收件箱”默认文件夹的“文件夹”集合中创建一个名为“重要项目”的新 Folder 对象,该对象代表新的邮件文件夹。

  3. 然后,该示例获取对活动资源管理器的 NavigationPane 对象的引用,并使用 NavigationModules 集合的 GetNavigationModule 方法获取 MailModule 对象引用。

  4. 然后,它使用 MailModuleNavigationGroups 集合的 GetDefaultNavigationGroup 方法获取对“收藏夹文件夹”导航组的 NavigationGroup 对象引用。

  5. 最后,本示例使用该导航组的 NavigationGroups 集合的 Add 方法,将新的 NavigationFolder 对象(基于本示例先前创建的 Folder 对象)添加到该导航组。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。