列舉所有存放區上的搜尋資料夾

這個主題中的程式碼範例會說明如何列舉目前工作階段所有儲存區中的搜尋資料夾。

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 支援與意見反應。