Löschen von Daten zum Zurücksetzen des Lösungsspeichers

  • Artikel

In diesem Thema wird das Löschen vorhandener Lösungsdaten zum Zurücksetzen des Lösungsspeichers beschrieben.

  1. Verwenden Sie Folder.GetStorage, um ein vorhandenes StorageItem -Objekt in einem bestimmten Ordner abzurufen. Durch diesen Aufruf wird ein neues StorageItem-Objekt zurückgegeben, wenn noch keines vorhanden ist.

  2. Verwenden Sie StorageItem.Delete, um das Objekt dauerhaft aus dem Ordner zu entfernen.

  3. Verwenden Sie Folder.GetStorage, um eine neue Instanz des StorageItem-Objekts mit dem gleichen Betreff zu erstellen.

  4. Verwenden Sie die Add -Methode von StorageItem.UserProperties, um eine benutzerdefinierte Eigenschaft namens Order Number zu erstellen.

  5. Legen Sie die Order Number -Eigenschaft fest.

  6. Verwenden Sie StorageItem.Save, um das StorageItem-Objekt im Ordner zu speichern.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.