Outlook) (存储对象

表示本地计算机或网络驱动器上的文件，该文件存储当前配置文件中帐户的电子邮件和其他项目。

备注

配置文件定义一个或多个电子邮件帐户，每个电子邮件帐户都与特定类型的服务器相关联。 对于 Exchange 服务器，存储区可以在服务器上、在 Exchange 公用文件夹中，或者在本地的个人文件夹文件 (.pst) 或脱机文件夹文件 (.ost) 中。 对于 POP3、IMAP 或 HTTP 电子邮件服务器，存储是 .pst 文件。

使用 Stores 和 Store 对象枚举当前会话中所有存储区的所有文件夹和搜索文件夹。 由于获取存储区中的搜索文件夹的根文件夹需要存储区处于打开状态，而打开存储区会增加性能开销，您决定执行此操作之前，可以检查 Store.IsOpen 属性。

如果使用 Exchange 服务器，则可以访问其他的显式内置 存储 的属性存储特性，如 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
类
DisplayName
ExchangeStoreType
FilePath
IsCachedExchange
IsConversationEnabled
IsDataFileStore
IsInstantSearchEnabled
IsOpen
Parent
PropertyAccessor
Session
StoreID

另请参阅

Outlook 对象模型引用存储对象成员

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。