UserDefinedProperties.Add 方法 (Outlook)
创建一个新的 UserDefinedProperty 对象，并将其追加到集合中。
语法
表达式。添加 (名称、 类型、 DisplayFormat、 Formula)
表达 一个代表 UserDefinedProperties 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Name | 必需 | String | 新的用户定义属性的名称。 |
| Type | 必需 | OlUserPropertyType | 新的用户定义属性的类型。 |
| DisplayFormat | 可选 | Variant | 新的用户定义属性的显示格式。 从几个不同的枚举，由 Type参数中指定 新属性的类型 常量之一，可以将此参数设置为一个值。 有关 Type 和 DisplayFormat 如何交互的详细信息，请参阅 DisplayFormat 属性。 |
| Formula | 可选 | Variant | 用于计算新的用户定义属性的值的公式。 如果 Type 参数设置为 olCombination 或 olFormula 以外的任何值，则忽略此参数。 |
返回值
UserDefinedProperty 对象，该对象表示新的用户定义属性。
备注
您可以创建一个由 OlUserPropertyType枚举中除以下类型定义类型的属性: olEnumeration、 olOutlookInternal和 olSmartFrom。
示例
下面的 Visual Basic for Applications (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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。