This documentation is archived and is not being maintained.

How to: Delete Data to Reset Solution Storage

Office 2007

This topic describes how to delete existing solution data to reset the solution storage:

  1. Use Folder.GetStorage to obtain an existing StorageItem object in a specific folder. This call will return a new StorageItem object if none already exists.
  2. Use StorageItem.Delete to remove the object permanently from the folder.
  3. Use Folder.GetStorage to create a new instance of the StorageItem object with the same subject.
  4. Use the Add method of StorageItem.UserProperties to create a custom property Order Number.
  5. Set the Order Number property.
  6. Use StorageItem.Save to save the StorageItem object to the folder.
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
    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
End Sub