UserProperties.Add 方法 (Outlook)
在 UserProperties 集合中创建新用户属性。
语法
表达式。添加 (名称、 类型、 AddToFolderFields、 DisplayFormat)
表达 一个代表 UserProperties 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Name | 必需 | String | 属性的名称。 最大长度为 64 个字符。 字符，[，]，名称中不允许 _ 和 #。 |
| Type | 必需 | OlUserPropertyType | 新属性的类型。 |
| AddToFolderFields | 可选 | Boolean | 如此 如果将属性作为自定义字段添加到项目所在的文件夹。 可以在文件夹视图中显示此字段。 假 如果属性将作为自定义字段添加，于该项而不适用于文件夹。 默认值为 True 。 |
| DisplayFormat | 可选 | Long | 指定该属性在 Outlook 用户界面中的显示方式。 从几个不同的枚举，由 Type参数中指定 新属性的类型 常量之一，可以将此参数设置为一个值。 有关 Type 和 DisplayFormat 如何交互的详细信息，请参阅 DisplayFormat 属性。 |
返回值
一个代表新属性的 UserProperty 对象。
备注
通过调用 UserProperties.Add 方法的 Outlook 项目或文件夹，或者文件夹的 UserDefinedProperties.Add 方法，您可以定义自定义属性。
您可以创建一个由 OlUserPropertyType枚举中除以下类型定义类型的属性: olEnumeration、 olOutlookInternal和 olSmartFrom。
要设置第一次通过 UserProperties.Add 方法创建一个属性，而不是 SetProperties 和 PropertyAccessor 对象的 SetProperty 方法中使用 UserProperty.Value 属性。
如果您想要查看的项的自定义属性，您必须使用 UserProperties.Add 方法来创建该属性。 在自定义视图不支持由 PropertyAccessor 创建的自定义属性。
不能将自定义属性添加到 Office 文档项目，例如 Word、Excel 或 PowerPoint 文件。 当试图以编程方式将用户定义的字段添加到 DocumentItem 对象时，将出现错误。
示例
本 VBA 示例创建一个新的 ContactItem 对象，并将"LastDateSpokenWith"作为自定义属性添加。
Sub AddUserProperty()
Dim myItem As Outlook.ContactItem
Dim myUserProperty As Outlook.UserProperty
Set myItem = Application.CreateItem(olContactItem)
Set myUserProperty = myItem.UserProperties _
.Add("LastDateSpokenWith", olDateTime)
myItem.Display
End Sub
本 VBA 示例创建一个新的 ContactItem 对象，并将“Details”作为用户属性添加。 通过更改 UserProperty 对象的 Value 属性来设置该值。
Sub AddUserProperty()
Dim myItem As Outlook.ContactItem
Dim myUserProperty As Outlook.UserProperty
Set myItem = Application.CreateItem(olContactItem)
Set myUserProperty = myItem.UserProperties _
.Add("Details", olText)
myUserProperty.Value = "Neighbor"
myItem.Display
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。