Löschen von Daten zum Zurücksetzen des LösungsspeichersDelete Data to Reset Solution Storage

In diesem Thema wird das Löschen vorhandener Lösungsdaten zum Zurücksetzen des Lösungsspeichers beschrieben.This topic describes how to delete existing solution data to reset the solution storage:

  1. Verwenden Sie Folder.GetStorage , um ein vorhandenes StorageItem -Objekt in einem bestimmten Ordner abzurufen.Use Folder.GetStorage to obtain an existing StorageItem object in a specific folder. Durch diesen Aufruf wird ein neues StorageItem-Objekt zurückgegeben, wenn noch keines vorhanden ist.This call will return a new StorageItem object if none already exists.

  2. Verwenden Sie StorageItem.Delete , um das Objekt dauerhaft aus dem Ordner zu entfernen.Use StorageItem.Delete to remove the object permanently from the folder.

  3. Verwenden Sie Folder.GetStorage , um eine neue Instanz des StorageItem -Objekts mit dem gleichen Betreff zu erstellen.Use Folder.GetStorage to create a new instance of the StorageItem object with the same subject.

  4. Verwenden Sie die Add -Methode von StorageItem.UserProperties , um eine benutzerdefinierte Eigenschaft Order Numberzu erstellen.Use the Add method of StorageItem.UserProperties to create a custom property Order Number.

  5. Legen Sie die Order Number -Eigenschaft.Set the Order Number property.

  6. Verwenden Sie StorageItem.Save , um das StorageItem -Objekt zu dem Ordner zu speichern.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 
 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