Поделиться через

Удаление данных для сброса хранилища решения

  • Статья

В этом разделе описывается удаление существующих данных решения для сброса хранилища решения:

  1. Используйте Folder.GetStorage , чтобы получить существующий объект StorageItem в определенной папке. Этот вызов вернет новый объект StorageItem, если он еще не существует.

  2. Используйте StorageItem.Delete , чтобы окончательно удалить объект из папки.

  3. Используйте Folder.GetStorage , чтобы создать новый экземпляр объекта StorageItem с тем же субъектом.

  4. Используйте метод Addобъекта StorageItem.UserProperties для создания пользовательского свойства 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 и обратная связь.