閱讀英文

共用方式為


將物件儲存 (Outlook)

一組 Store 物件,代表目前設定檔中所有可用的存放區。

註解

使用 StoresStore 物件來列舉目前會話中所有存放區上的所有資料夾和搜尋資料夾。 如需在資料夾和儲存區中儲存 Outlook 項目的詳細資訊,請參閱儲存 Outlook 項目

範例

下列 Microsoft Visual Basic for Applications (VBA) 程式碼範例會列舉某個工作階段之所有儲存區上的所有資料夾:

Sub EnumerateFoldersInStores() 
 
 Dim colStores As Outlook.Stores 
 
 Dim oStore As Outlook.Store 
 
 Dim oRoot As Outlook.Folder 
 
 
 
 On Error Resume Next 
 
 Set colStores = Application.Session.Stores 
 
 For Each oStore In colStores 
 
 Set oRoot = oStore.GetRootFolder 
 
 Debug.Print (oRoot.FolderPath) 
 
 EnumerateFolders oRoot 
 
 Next 
 
End Sub 
 
 
 
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder) 
 
 Dim folders As Outlook.folders 
 
 Dim Folder As Outlook.Folder 
 
 Dim foldercount As Integer 
 
 
 
 On Error Resume Next 
 
 Set folders = oFolder.folders 
 
 foldercount = folders.Count 
 
 'Check if there are any folders below oFolder 
 
 If foldercount Then 
 
 For Each Folder In folders 
 
 Debug.Print (Folder.FolderPath) 
 
 EnumerateFolders Folder 
 
 Next 
 
 End If 
 
End Sub

事件

方法

名稱
項目

屬性

另請參閱

Outlook 物件模型參考儲存物件成員

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應