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

Хранение данных в объекте StorageItem для решения

  • Статья

В этом разделе описывается хранение данных частного приложения в хранилище решений, предоставляемое объектной моделью Outlook.

  1. Определите папку, в которой будут храниться данные приложения.

Примечание Так как хранилище решений создается как скрытые элементы в папке, данные решения можно хранить только в том случае, если поставщик хранилища поддерживает скрытые элементы и клиент имеет права на запись в эту папку. 2. Используйте Folder.GetStorage , чтобы получить существующий объект StorageItem или новый объект StorageItem , если он еще не существует.

  1. Используйте StorageItem.Size , чтобы определить, является ли объект StorageItem новым. Если это так, используйте метод Addобъекта StorageItem.UserProperties , чтобы создать пользовательское свойство Order Number.

  2. Задайте свойство Order Number . При этом предполагается, что в существующем объекте StorageItem уже задано пользовательское свойство Order Number .

  3. Используйте 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 и обратная связь.