Propiedad UserDefinedProperty.Type (Outlook)
Devuelve una constante OlUserPropertyType que indica el tipo del objeto UserDefinedProperty . Solo lectura.
expresión. Tipo
Expresión Variable que representa un objeto UserDefinedProperty .
En el siguiente ejemplo de Visual Basic para Aplicaciones (VBA) se muestra el nombre de un objeto Folder especificado, así como el nombre y el tipo de cada objeto UserDefinedProperty contenido en la colección UserDefinedProperties del objeto Folder especificado, en la ventana Inmediato.
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
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.