將資料儲存在解決方案的 StorageItem 中

這個主題會說明如何將應用程式資料儲存在 Outlook 物件模型所提供的方案儲存區中。

1. 決定您要用來儲存應用程式資料的資料夾。

注意 由於解決方案儲存體會建立為資料夾中的隱藏專案，因此只有在存放區提供者支援隱藏專案且用戶端有權寫入該資料夾時，您才能儲存解決方案資料。 2.使用 Folder.GetStorage 取得現有的 StorageItem 物件，或如果其中一個物件不存在，則為新的 StorageItem 物件。

3. 使用 StorageItem.Size 判斷 StorageItem 是否為新的。 如果是新的，則使用 StorageItem.UserProperties 的 Add 方法建立自訂屬性 Order Number 。

4. 設定 Order Number 屬性。 這會假設現有的 StorageItem 已定義自訂屬性 Order Number 。

5. 使用 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, or create new if it doesn't exist 
 Set myStorage = oInbox.GetStorage("My Private Storage", olIdentifyBySubject) 
 
 If myStorage.Size = 0 Then 
 'There was no existing StorageItem by this subject, so created a new one 
 'Create a custom property for Order Number 
 Set myPrivateProperty = myStorage.UserProperties.Add("Order Number", olNumber) 
 Else 
 'Assume that existing storage has the Order Number property already 
 Set myPrivateProperty = myStorage.UserProperties("Order Number") 
 End If 
 myPrivateProperty.Value = lngOrderNumber 
 myStorage.Save 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。