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

另请参阅

UserProperties 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。