UserDefinedProperty 对象 (Outlook)

  • 项目

代表 Folder 对象的用户定义属性的定义。

备注

使用 UserDefinedProperties (索引) （其中 index 是名称或索引号）可返回单个 UserDefinedProperty 对象。

使用 Folder 对象的 UserDefinedProperties 集合的 Add 方法可定义该文件夹的用户定义属性。

使用 Type 属性返回用户定义的属性类型， DisplayFormat 属性以返回用户定义属性的显示格式。 如果 类型 属性设置为 olCombination 或 olFormula ，使用 Formula 属性来返回用于生成用户定义的属性的值的公式。

UserDefinedProperty 对象表示只适用于所有 Outlook 项目所包含的文件夹的用户定义属性的定义。 要检索或更改该文件夹中某个 Outlook 项目的用户定义的属性值，请使用 Outlook 项目，如 MailItem 对象， UserProperties 属性来检索该项目的 UserProperties 集合。 然后可以使用适当的用户定义属性的 UserProperty 对象来检索或更改 Outlook 项目的用户定义属性的值。

示例

以下Visual Basic for Applications (VBA) 示例在“即时”窗口中显示指定 Folder 对象的名称，以及指定 Folder 对象的 UserDefinedProperties 集合中包含的每个 UserDefinedProperty 对象的名称和类型。

Sub DisplayUserProperties(ByRef FolderToCheck As Folder) 
 Dim objProperty As UserDefinedProperty 
 
 ' Print the name of the specified Folder object 
 ' reference to the Immediate window. 
 Debug.Print "--- Folder: " & FolderToCheck.Name 
 
 ' Check if there are any user-defined properties 
 ' associated with the Folder object reference. 
 If FolderToCheck.UserDefinedProperties.Count = 0 Then 
 ' No user-defined properties are present. 
 Debug.Print " No user-defined properties." 
 Else 
 ' Iterate through every user-defined property in 
 ' the folder. 
 For Each objProperty In FolderToCheck.UserDefinedProperties 
 ' Retrieve the name of the user-defined property. 
 strPropertyInfo = objProperty.Name 
 ' Retrieve the type of the user-defined property. 
 Select Case objProperty.Type 
 Case OlUserPropertyType.olCombination 
 strPropertyInfo = strPropertyInfo & " (Combination)" 
 Case OlUserPropertyType.olCurrency 
 strPropertyInfo = strPropertyInfo & " (Currency)" 
 Case OlUserPropertyType.olDateTime 
 strPropertyInfo = strPropertyInfo & " (Date/Time)" 
 Case OlUserPropertyType.olDuration 
 strPropertyInfo = strPropertyInfo & " (Duration)" 
 Case OlUserPropertyType.olEnumeration 
 strPropertyInfo = strPropertyInfo & " (Enumeration)" 
 Case OlUserPropertyType.olFormula 
 strPropertyInfo = strPropertyInfo & " (Formula)" 
 Case OlUserPropertyType.olInteger 
 strPropertyInfo = strPropertyInfo & " (Integer)" 
 Case OlUserPropertyType.olKeywords 
 strPropertyInfo = strPropertyInfo & " (Keywords)" 
 Case OlUserPropertyType.olNumber 
 strPropertyInfo = strPropertyInfo & " (Number)" 
 Case OlUserPropertyType.olOutlookInternal 
 strPropertyInfo = strPropertyInfo & " (Outlook Internal)" 
 Case OlUserPropertyType.olPercent 
 strPropertyInfo = strPropertyInfo & " (Percent)" 
 Case OlUserPropertyType.olSmartFrom 
 strPropertyInfo = strPropertyInfo & " (Smart From)" 
 Case OlUserPropertyType.olText 
 strPropertyInfo = strPropertyInfo & " (Text)" 
 Case OlUserPropertyType.olYesNo 
 strPropertyInfo = strPropertyInfo & " (Yes/No)" 
 Case Else 
 strPropertyInfo = strPropertyInfo & " (Unknown)" 
 End Select 
 
 ' Print the name and type of the user-defined property 
 ' to the Immediate window. 
 Debug.Print strPropertyInfo 
 Next 
 End If 
End Sub

方法

名称
Delete

属性

名称
Application
类
DisplayFormat
Formula
名称
Parent
Session
Type

另请参阅

Outlook 对象模型引用

支持和反馈

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