Объект UserDefinedProperties (Outlook)
Содержит набор объектов UserDefinedProperty , представляющих определяемые пользователем свойства, определенные для объекта Folder .
Замечания
Члены коллекции UserDefinedProperties соответствуют полям в разделе Определяемые пользователем поля в папке , которая отображается в диалоговом окне Показать поля .
Используйте свойство UserDefinedProperties , чтобы получить объект UserDefinedProperties из объекта Folder .
Используйте метод Add для определения и добавления определяемого пользователем свойства в коллекцию UserDefinedProperties, а метод Remove — для удаления существующего определяемого пользователем свойства. Используйте метод Item для получения по имени или индексу или метод Find , чтобы найти и извлечь по имени объект UserDefinedProperty из коллекции UserDefinedProperties . Используйте метод Refresh , чтобы перезагрузить коллекцию UserDefinedProperties из хранилища.
Коллекция UserDefinedProperties содержит только определения определяемых пользователем свойств, которые применимы ко всем элементам Outlook, содержащимся в папке. Чтобы получить или изменить определяемые пользователем значения свойств для элемента Outlook в этой папке, используйте свойство UserProperties элемента Outlook, например объект MailItem , чтобы получить коллекцию UserProperties для этого элемента. Затем можно использовать объект UserProperty для соответствующего определяемого пользователем свойства, чтобы получить или изменить значение этого пользовательского свойства для элемента Outlook.
Пример
В следующем примере Visual Basic для приложений (VBA) метод Add используется для создания и добавления нескольких объектов UserDefinedProperty в папку по умолчанию папки "Входящие".
Sub AddStatusProperties()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objProperty As UserDefinedProperty
' Obtain a Folder object reference to the
' Inbox default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
' Add five user-defined properties, used to identify and
' track customer issues.
With objFolder.UserDefinedProperties
Set objProperty = .Add("Issue?", olYesNo, olFormatYesNoIcon)
Set objProperty = .Add("Issue Research Time", olDuration)
Set objProperty = .Add("Issue Resolution Time", olDuration)
Set objProperty = .Add("Customer Follow-Up", olYesNo, olFormatYesNoYesNo)
Set objProperty = .Add("Issue Closed", olYesNo, olFormatYesNoYesNo)
End With
End Sub
Методы
| Имя |
|---|
| Add |
| Find |
| Item |
| Refresh |
| Remove |
Свойства
| Имя |
|---|
| Application |
| Class |
| Count |
| Parent |
| Session |
См. также
Справочник по объектной модели Outlook
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.