Outlook) (UserDefinedProperty 物件
代表 Folder 物件的使用者定義屬性定義。
註解
使用 UserDefinedProperties (索 引) ，其中 index 是名稱或索引編號，可傳回單一 UserDefinedProperty 物件。
使用Folder物件之UserDefinedProperties集合的Add方法，定義該資料夾的使用者定義屬性。
使用 Type 屬性可傳回使用者定義的屬性類型和 DisplayFormat 屬性，以傳回使用者定義屬性的顯示格式。 如果 Type 屬性設定為 olCombination 或 olFormula，則使用 Formula 屬性可傳回用來為此使用者定義之屬性產生值的公式。
UserDefinedProperty物件只代表使用者定義屬性的定義，該屬性適用于資料夾所包含的所有 Outlook 專案。 若要擷取或變更該資料夾中 Outlook 專案的使用者定義屬性值，請使用 Outlook 專案的 UserProperties 屬性，例如 MailItem 物件，來擷取該專案的 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 |
| Class |
| DisplayFormat |
| Formula |
| Name |
| Parent |
| Session |
| Type |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。