Objeto UserDefinedProperty (Outlook)
Representa la definición de una propiedad definida por el usuario para un objeto Folder.
Comentarios
Use UserDefinedProperties (index), donde index es un nombre o un número de índice, para devolver un único objeto UserDefinedProperty .
Utilice el método Add de la colección UserDefinedProperties para un objeto Folder para definir una propiedad definida por el usuario para esa carpeta.
Utilice la propiedad Type para devolver el tipo de propiedad definida por el usuario y la propiedad DisplayFormat para devolver el formato de presentación para la propiedad definida por el usuario. Si la propiedad Type se establece en olCombination u olFormula, utilice la propiedad Formula para devolver la fórmula que se utiliza para generar valores para la propiedad definida por el usuario.
El objeto UserDefinedProperty representa únicamente la definición de una propiedad definida por el usuario, que es aplicable a todos los elementos de Outlook contenidos en la carpeta. Para recuperar o cambiar valores de propiedad definida por el usuario para un elemento de Outlook en esa carpeta, utilice la propiedad UserProperties del elemento de Outlook, como un objeto MailItem, para recuperar la colección UserProperties de ese elemento. A continuación, puede utilizar el objeto UserProperty de la propiedad definida por el usuario adecuada para recuperar o cambiar el valor de la propiedad definida por el usuario para el elemento de Outlook.
Ejemplo:
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
Métodos
Nombre |
---|
Delete |
Propiedades
Nombre |
---|
Aplicación |
Class |
DisplayFormat |
Formula |
Name |
Parent |
Session |
Type |
Consulte también
Referencia del modelo de objetos de Outlook
Soporte técnico y comentarios
¿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.