Поделиться через

Добавление папки в группу "Избранные папки"

  • Статья

Вы можете добавить папку в группу навигации Избранные папки в Microsoft Outlook с помощью метода Add коллекции NavigationFolders для объекта NavigationGroup . Метод Add принимает ссылку на объект Folder , с которым связана пользовательская папка навигации.

Вы можете получить ссылку на объект NavigationGroup на группу навигации по умолчанию для указанного типа группы навигации с помощью метода GetDefaultNavigationGroup объекта NavigationGroups .

Этот пример создает новую папку почты для важных элементов и добавляет настраиваемую папку навигации для новой папки в группе навигации Избранные папки модуля Почта .

Примечание При попытке добавить папку для конкретного решения, созданную для модуля Решения, в список Избранные папки Outlook вызовет ошибку.

В примере выполняются следующие действия:

  1. Пример получает ссылку на объект Folder для папки по умолчанию папки "Входящие" для текущего пользователя с помощью метода GetDefaultFolder объекта NameSpace .

  2. Затем он создает новый объект Folder с именем "Важные элементы", представляющий новую папку почты, в коллекции Папок папки папки "Входящие" по умолчанию.

  3. Затем пример получает ссылку на объект NavigationPane для активного обозревателя и использует метод GetNavigationModule коллекции NavigationModule для получения ссылки на объект MailModule .

  4. Затем он использует метод GetDefaultNavigationGroup коллекции NavigationGroups для MailModule , чтобы получить ссылку на объект NavigationGroup на группу навигации Избранные папки .

  5. Наконец, пример добавляет новый объект NavigationFolder на основе объекта Folder , созданного ранее в примере, в группу навигации с помощью метода Add коллекции NavigationGroups для этой группы навигации.

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 и обратная связь.