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

Метод Folder.GetStorage (Outlook)

  • Статья

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

Синтаксис

выражение. GetStorage( _StorageIdentifier_ , _StorageIdentifierType_ )

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
StorageIdentifier Обязательный String Идентификатор объекта StorageItem ; В зависимости от типа идентификатора значение может представлять идентификатор записи, класс сообщения или тему.
StorageIdentifierType Обязательный OlStorageIdentifierType Указывает тип идентификатора объекта StorageItem .

Возвращаемое значение

Объект StorageItem , используемый для хранения данных для решения.

Замечания

Метод GetStorage получает объект StorageItem для объекта Folder , используя идентификатор, заданный storageIdentifier , и имеет тип идентификатора, указанный в storageIdentifierType. StorageItem — это скрытый элемент в папке, который перемещается с учетной записью и доступен как в сети, так и в автономном режиме.

Если указать EntryID для StorageItem с помощью значения olIdentifyByEntryID для StorageIdentifierType , метод GetStorage вернет Объект StorageItem с указанным EntryID. Если объект StorageItem не найден с помощью этого идентификатора EntryID или storageItem не существует, метод GetStorage вызовет ошибку.

Если указать класс сообщений для StorageItem с помощью значения olIdentifyByMessageClass для StorageIdentifierType , метод GetStorage вернет StorageItem с указанным классом сообщения. Если имеется несколько элементов с одним и тем же классом сообщений, метод GetStorage возвращает элемент с последним PR_LAST_MODIFICATION_TIME. Если StorageItem с указанным классом сообщения не существует, метод GetStorage создает новый объект StorageItem с классом сообщения, заданным StorageIdentifier.

Если указать subjectобъекта StorageItem, метод GetStorage вернет объект StorageItem с субъектом , указанным в вызове GetStorage . Если имеется несколько элементов с одним субъектом, метод GetStorage вернет элемент с последним PR_LAST_MODIFICATION_TIME. Если StorageItem не существует с указанным субъектом, метод GetStorage создаст объект StorageItem с субъектом , заданным storageIdentifier.

GetStorage возвращает ошибку, если тип хранилища папки не поддерживается. Следующие хранилища возвращают ошибку при вызове Метода GetStorage :

  • Хранилище Hotmail

  • Хранилища протокола IMAP

  • Хранилища делегатов

  • Хранилища общедоступных папок

Размер вновь созданного объекта StorageItem равен нулю (0), пока вы не выполните явный вызов метода Save элемента.

Дополнительные сведения о хранении данных для решения см. в разделе Хранение данных для решений.

Пример

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

  1. Пример кода вызывает Метод GetStorage для получения существующего объекта 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

См. также

Folder Object

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.