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 |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。