Метод StorageItem.Save (Outlook)

Статья
04/07/2023

Синтаксис

expression. Сохранить

Выражение Переменная, представляющая объект StorageItem .

Замечания

Если объект StorageItem никогда не сохранялся ранее, при сохранении элемента сохраняется как скрытый элемент в папке , в которой был вызван метод Folder.GetStorage . Если объект StorageItem был сохранен ранее, а элемент был изменен с тех пор, при сохранении изменений сохраняется элемент. Если элемент StorageItem был сохранен ранее и с тех пор элемент не был изменен, метод Save ничего не делает.

Дополнительные сведения о сохранении данных решения в объект StorageItem см. в разделе Создание и сохранение данных в хранилище решения.

Пример

В следующем примере кода в Visual Basic для приложений показано, как использовать объект StorageItem для хранения данных частного решения. Данные сохраняются в пользовательском свойстве объекта StorageItem в папке "Входящие". Ниже описаны шаги.

Пример кода вызывает Folder.GetStorage для получения существующего объекта StorageItem с темой "Мое частное хранилище" в папке "Входящие". Если StorageItem с этим субъектом уже не существует, GetStorage создает объект StorageItem с этим субъектом .
Если объект StorageItem создан, в примере кода создается пользовательское свойство "Номер заказа" для объекта . Обратите внимание, что "Номер заказа" — это свойство скрытого элемента в папке "Входящие".
Затем в примере кода присваивается значение "Номер заказа" и сохраняется объект 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 и обратная связь.

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