次の方法で共有

StorageItem.Save メソッド (Outlook)

  • [アーティクル]

StorageItem オブジェクトを保存します。

構文

式。保存

式StorageItem オブジェクトを表す変数。

注釈

StorageItem が保存されていない場合は、 Folder.GetStorage が呼び出された対象の フォルダー に非表示のアイテムとして、項目を保存する を保存 します。 場合 StorageItem 以前に保存されており、以降の項目が変更されて、 保存 保存の項目に変更します。 StorageItem が以前保存したアイテムがその後変更されていない場合は、 Save メソッドは何もしません。

ソリューション データを StorageItem オブジェクトに保存する方法の詳細については、「データを作成してソリューション ストレージに保存する」を参照してください。

例

Visual Basic for Applications では、次のコード サンプルでは、 StorageItem オブジェクトを使用して個人用のソリューション データを格納する方法を示します。 受信トレイ フォルダー内の StorageItem オブジェクトのカスタム プロパティにデータを保存します。 手順を次に示します。

  1. このコード サンプルでは 、Folder.GetStorage を呼び出して、受信トレイに "My Private Storage" という件名の既存の StorageItem オブジェクトを取得します。そのサブジェクトを持つ StorageItem が既に存在しない場合、 GetStorage はそのサブジェクトを持つ StorageItem オブジェクトを作成します。

  2. StorageItem を新規に作成された場合、コード サンプルは、オブジェクトのカスタム プロパティ「注文数」を作成します。 「注文数」が受信トレイに非表示のアイテムのプロパティであることに注意します。

  3. コード サンプルは、「注文番号」に値を代入し、 StorageItem オブジェクトを保存します。

Sub AssignStorageData() 
 
 Dim oInbox As Outlook.Folder 
 
 Dim myStorage As Outlook.StorageItem 
 
 
 
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 ' Get an existing instance of StorageItem, or create new if it doesn't exist 
 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 ' If StorageItem is new, add a custom property for Order Number 
 
 If myStorage.Size = 0 Then 
 
 myStorage.UserProperties.Add "Order Number", olNumber 
 
 End If 
 
 ' Assign a value to the custom property 
 
 myStorage.UserProperties("Order Number").Value = 100 
 
 myStorage.Save 
 
End Sub

関連項目

StorageItem オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。