通过

删除数据以重置解决方案存储

  • 项目

本主题说明了如何删除现有的解决方案数据来重置解决方案存储区：

  1. 使用 Folder.GetStorage 获取特定文件夹中的现有 StorageItem 对象。 如果该文件夹中尚不存在这样的对象，此调用将返回一个新的 StorageItem 对象。

  2. 使用 StorageItem.Delete 将对象从文件夹中永久删除。

  3. 使用 Folder.GetStorage 创建一个具有相同主题的 StorageItem 对象的新实例。

  4. 使用 StorageItem.UserProperties 的 Add 方法创建自定义属性 Order Number 。

  5. 设置 Order Number 属性。

  6. 使用 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 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 'Remove the storage permanently assuming it's old 
 myStorage.Delete 
 Set myStorage = Nothing 
 
 'Get a new instance of StorageItem in the Inbox 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 'Create custom property for Order Number 
 Set myPrivateProperty = myStorage.UserProperties.Add("Order Number", olNumber) 
 
 'Store application data in the Order Number property 
 myPrivateProperty.Value = 1000 
 
 'Save the data to the Inbox 
 myStorage.Save 
End Sub

支持和反馈

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