Outlook) (Store 物件
表示本機電腦或網路磁碟機機上的檔案，該檔案會儲存目前設定檔中帳戶的電子郵件訊息和其他專案。
註解
設定檔會定義一或多個電子郵件帳戶，而且每個電子郵件帳戶都會與特定類型的伺服器相關聯。 對於 Exchange 伺服器，存放區可以位於伺服器、Exchange Public 資料夾中，或本機個人資料夾檔案 (.pst) 或離線資料夾檔案 (.ost) 中。 對於 POP3、IMAP 或 HTTP 電子郵件伺服器，存放區是 .pst 檔案。
使用 Stores 和 Store 物件來列舉目前會話中所有存放區上的所有資料夾和搜尋資料夾。 由於在存放區中取得根資料夾或搜尋資料夾需要開啟存放區，而開啟存放區會造成效能額外負荷，因此您可以先檢查 Store.IsOpen 屬性，再決定進行作業。
如果您使用 Exchange 伺服器，就可以存取儲存區特性的其他明確內建 Store 屬性，例如 ExchangeStoreType、IsCachedExchange 及 IsDataFileStore。 使用Store.PropertyAccessor傳回的PropertyAccessor物件來存取未在 Outlook 物件模型中公開的其他存放區屬性。
如需在資料夾和儲存區中儲存 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
方法
| 名稱 |
|---|
| GetDefaultFolder |
| GetRootFolder |
| GetRules |
| GetSearchFolders |
| GetSpecialFolder |
| RefreshQuotaDisplay |
| CreateUnifiedGroup |
| DeleteUnifiedGroup |
屬性
| 名稱 |
|---|
| Application |
| Categories |
| Class |
| DisplayName |
| ExchangeStoreType |
| FilePath |
| IsCachedExchange |
| IsConversationEnabled |
| IsDataFileStore |
| IsInstantSearchEnabled |
| IsOpen |
| Parent |
| PropertyAccessor |
| Session |
| StoreID |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。