共用方式為

(Outlook) 的 StorageItem.Save 方法

  • 發行項

儲存 StorageItem。

語法

運算式。救

表達 代表 StorageItem 物件的 變數。

註解

如果 StorageItem 之前從未儲存過，Save 就會在呼叫 Folder.GetStorage 的 Folder 中，將此項目儲存成隱藏項目。 如果 StorageItem 之前儲存過而且此項目自從儲存以來已經變更了，Save 就會儲存對此項目所做的變更。 如果 StorageItem 之前儲存過，但是此項目自從儲存以來尚未變更，則 Save 方法就不會進行任何動作。

如需將方案資料儲存至 StorageItem 物件的詳細資訊，請參閱建立和儲存資料至方案存放區。

範例

下列 Visual Basic for Applications 程式碼範例將示範如何使用 StorageItem 物件來儲存私人方案資料。 它會將資料儲存在 [收件匣] 資料夾之 StorageItem 物件的自訂屬性中。 下面將描述這些步驟：

  1. 程式碼範例會呼叫 Folder.GetStorage 來取得在 [收件匣] 中主旨為 「My Private Storage」 的現有 StorageItem 物件;如果沒有任何具有該主體的 StorageItem 存在， GetStorage 會建立具有該主體的 StorageItem 物件。

  2. 如果 StorageItem 是新建立的，此程式碼範例就會為物件建立自訂屬性 "Order Number"。 請注意，"Order Number" 是 [收件匣] 中隱藏項目的屬性。

  3. 程式碼範例接著會將值指派給 「Order Number」，並儲存 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 支援與意見反應。