通过

在解决方案的 StorageItem 中存储数据

  • 项目

本主题描述了如何在由 Outlook 对象模型提供的解决方案存储区中存储私有应用程序数据。

  1. 确定要存储应用程序数据的文件夹。

注意 由于解决方案存储创建为文件夹中的隐藏项目，因此仅当存储提供程序支持隐藏项目并且客户端有权写入该文件夹时，才能存储解决方案数据。 2. 使用 Folder.GetStorage 获取现有的 StorageItem 对象或新的 StorageItem 对象（如果尚不存在）。

  1. 使用 StorageItem.Size 确定该 StorageItem 是否为新对象。 如果是，则使用 StorageItem.UserProperties 的 Add 方法创建自定义属性 Order Number 。

  2. 设置 Order Number 属性。 这是假定现有 StorageItem 已定义了自定义属性 Order Number 。

  3. 使用 StorageItem.Save 将 StorageItem 对象保存为文件夹中的隐藏项。

Sub StoreData() 
 Dim oInbox As Folder 
 Dim myStorage As StorageItem 
 Dim myPrivateProperty As UserProperty 
 
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 ' Get an existing instance of StorageItem by subject, or create new if it doesn't exist 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 If myStorage.Size = 0 Then 
 'There was no existing StorageItem by this subject, so created a new one 
 'Create a custom property for Order Number 
 Set myPrivateProperty = myStorage.UserProperties.Add("Order Number", olNumber) 
 Else 
 'Assume that existing storage has the Order Number property already 
 Set myPrivateProperty = myStorage.UserProperties("Order Number") 
 End If 
 myPrivateProperty.Value = lngOrderNumber 
 myStorage.Save 
End Sub

支持和反馈

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