次の方法で共有

ソリューション ストレージをリセットするためのデータの削除

  • [アーティクル]

このトピックでは、既存のソリューション データを削除してソリューション ストレージをリセットする方法を説明します。

  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 のサポートおよびフィードバックを参照してください。