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 |
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。