刪除資料以重設方案儲存體

這個主題會說明如何刪除現有的方案資料重設方案儲存區：

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 支援與意見反應。