Share via

UserDefinedProperty.Type Property

  • Article
Outlook Developer Reference

Returns an OlUserPropertyType constant indicating the type of the UserDefinedProperty object. Read-only.

Version Information
 Version Added:  Outlook 2007

Syntax

expression.Type

expression   A variable that represents a UserDefinedProperty object.

Example

The following Visual Basic for Applications (VBA) example displays the name of a specified Folder object, as well as the name and type of every UserDefinedProperty object contained in the UserDefinedProperties collection of the specified Folder object, to the Immediate window.

Visual Basic for Applications 
  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

See Also