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

Перечисление папок поиска во всех хранилищах

  • Статья

В этом разделе описывается пример кода, который перечисляет папки поиска во всех хранилищах для текущего сеанса.

  1. Пример кода начинается с получения всех хранилищ для текущего сеанса с помощью свойства NameSpace.Stores текущего сеанса , Application.Session.

  2. Для каждого хранилища этого сеанса он использует Store.GetSearchFolders для получения коллекции папок поиска для этого хранилища.

  3. Для каждой коллекции папок поиска отображается имя каждой папки.

Замечания

Чтобы запустить этот пример кода, поместите код во встроенный модуль ThisOutlookSession . Выполните процедуру EnumerateSearchFoldersInStores :

Sub EnumerateSearchFoldersInStores() 
 Dim colStores As Outlook.Stores 
 Dim oStore As Outlook.Store 
 Dim oSearchFolders As Outlook.folders 
 Dim oFolder As Outlook.Folder 
 
 On Error Resume Next 
 Set colStores = Application.Session.Stores 
 For Each oStore In colStores 
 Set oSearchFolders = oStore.GetSearchFolders 
 For Each oFolder In oSearchFolders 
 Debug.Print (oFolder.FolderPath) 
 Next 
 Next 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.