Método Inspector.SetControlItemProperty (Outlook)
Enlaza una propiedad integrada o una propiedad personalizada a un control en un inspector.
Sintaxis
expresión. SetControlItemProperty( _Control_ , _PropertyName_ )
Expresión Variable que representa un objeto Inspector .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Control | Obligatorio | Object | Control que se va a enlazar a una propiedad. |
| PropertyName | Obligatorio | String | Nombre de la propiedad que se va a enlazar al control. |
Comentarios
Use este método para enlazar una propiedad integrada explícita o una propiedad personalizada a un control. Debe hacer referencia a la propiedad por su nombre de cadena, por ejemplo, Subject y no por espacio de nombres, por ejemplo, https://schemas.microsoft.com/mapi/proptag/0x0037001E.
El parámetro PropertyName no distingue mayúsculas de minúsculas. Por ejemplo, SetControlItemProperty interpreta un argumento, CustomerId, para que sea el mismo que CustomerID y enlaza el control especificado a la propiedad integrada ContactItem.CustomerID .
También puede usar la siguiente línea de código myPage.Controls("bar").ItemProperty = "subject" para enlazar la propiedad subject a un control. Sin embargo, tenga en cuenta que el código no confiable con Esto desencadenará una advertencia de seguridad si la propiedad está protegida por la protección de seguridad del modelo de objeto, como a, y el equipo cliente está ejecutando Microsoft Office Outlook 2007 o posterior, pero no tiene configurado correctamente un software antivirus. Use el método SetControlItemProperty para evitar advertencias de seguridad con aplicaciones de confianza.
Ejemplo:
El ejemplo siguiente de Visual Basic para aplicaciones (VBA) se agrega una página personalizada a un elemento de cita, agrega un control textbox y éste se enlaza a la propiedad Subject.
Sub Example()
Dim myIns As Outlook.Inspector
Dim myAppt As Outlook.AppointmentItem
Dim ctrl As Object
Dim ctrls As Object
Dim myPages As Outlook.Pages
Dim myPage As Object
Set myAppt = Application.CreateItem(olAppointmentItem)
Set myIns = myAppt.GetInspector
Set myPages = myIns.ModifiedFormPages
Set myPage = myPages.Add("New Page")
myIns.ShowFormPage ("New Page")
Set ctrls = myPage.Controls
Set ctrl = ctrls.Add("Forms.TextBox.1")
myIns.SetControlItemProperty ctrl, "Subject"
myAppt.Display
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.