Метод UserDefinedProperties.Add (Outlook)

Статья
04/07/2023

Создает объект UserDefinedProperty и добавляет его в коллекцию.

Синтаксис

expression. Add (Name, Type, DisplayFormat, Formula)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Имя нового определяемого пользователем свойства.
Тип	Обязательный	OlUserPropertyType	Тип нового определяемого пользователем свойства.
DisplayFormat	Необязательный	Variant	Формат отображения нового определяемого пользователем свойства. Для этого параметра можно задать значение из одного из нескольких различных перечислений, определяемых константой OlUserPropertyType , указанной в параметре Type . Дополнительные сведения о взаимодействии Type и DisplayFormat см. в разделе Свойство DisplayFormat.
Formula	Необязательный	Variant	Формула, используемая для вычисления значений для нового определяемого пользователем свойства. Этот параметр игнорируется, если для параметра Type задано любое значение, отличное от olCombination или olFormula.

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

Объект UserDefinedProperty , представляющий новое определяемое пользователем свойство.

Замечания

Можно создать свойство типа, определенного перечислением OlUserPropertyType , за исключением следующих типов: olEnumeration, olOutlookInternal и olSmartFrom.

Пример

В следующем примере 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

См. также

Объект UserDefinedProperties

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

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

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