Método UserDefinedProperties.Add (Outlook)
Crea un nuevo objeto UserDefinedProperty y lo anexa a la colección.
Sintaxis
expresión. Agregar (Nombre, Tipo, DisplayFormat, Fórmula)
Expresión Variable que representa un objeto UserDefinedProperties .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Name | Obligatorio | String | Nombre de la nueva propiedad definida por el usuario. |
| Type | Obligatorio | OlUserPropertyType | Tipo de la nueva propiedad definida por el usuario. |
| DisplayFormat | Opcional | Variant | El formato de presentación de la nueva propiedad definida por el usuario. Este parámetro se puede establecer en un valor de una de las distintas enumeraciones, determinadas por la constante OlUserPropertyType especificada en el parámetro Type. Para obtener más información sobre cómo interactúan Type y DisplayFormat, veaDisplayFormat (propiedad). |
| Formula | Opcional | Variant | La fórmula que se usa para calcular los valores de la nueva propiedad definida por el usuario. Este parámetro se omite si el parámetro Type se establece en cualquier valor distinto de olCombination o olFormula. |
Valor devuelto
Objeto UserDefinedProperty que representa la nueva propiedad definida por el usuario.
Comentarios
Puede crear una propiedad de un tipo definido por la enumeración OlUserPropertyType, excepto los siguientes tipos: olEnumeration, olOutlookInternaly olSmartFrom.
Ejemplo:
El siguiente de Visual Basic para Aplicaciones (VBA) se utiliza el método Add para crear y agregar varios objetos UserDefinedProperty a la carpeta predeterminada Bandeja de entrada.
Sub AddStatusProperties()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objProperty As UserDefinedProperty
' Obtain a Folder object reference to the
' Inbox default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
' Add five user-defined properties, used to identify and
' track customer issues.
With objFolder.UserDefinedProperties
Set objProperty = .Add("Issue?", olYesNo, olFormatYesNoIcon)
Set objProperty = .Add("Issue Research Time", olDuration)
Set objProperty = .Add("Issue Resolution Time", olDuration)
Set objProperty = .Add("Customer Follow-Up", olYesNo, olFormatYesNoYesNo)
Set objProperty = .Add("Issue Closed", olYesNo, olFormatYesNoYesNo)
End With
End Sub
Consulte también
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.