Evento TaskRequestAcceptItem. CustomPropertyChange (Outlook)TaskRequestAcceptItem.CustomPropertyChange event (Outlook)
Ocorre quando uma propriedade personalizada de um item (que é uma instância do objeto pai) é alterada.Occurs when a custom property of an item (which is an instance of the parent object) is changed.
SintaxeSyntax
expression.expression. CustomPropertyChange
( _Name_
)CustomPropertyChange
( _Name_
)
expressão Uma variável que representa um objeto TaskRequestAcceptItem .expression A variable that represents a TaskRequestAcceptItem object.
ParâmetrosParameters
NomeName | Obrigatório/OpcionalRequired/Optional | Tipo de dadosData type | DescriçãoDescription |
---|---|---|---|
NomeName | ObrigatórioRequired | StringString | O nome da propriedade personalizada que foi alterada.The name of the custom property that was changed. |
ComentáriosRemarks
O nome da propriedade é passado ao procedimento para que você possa determinar a propriedade personalizada alterada.The property name is passed to the procedure so that you can determine which custom property changed.
ExemploExample
Este exemplo do Microsoft Visual Basic Scripting Edition (VBScript) usa o evento CustomPropertyChange para habilitar um controle quando um campo Boolean é definido como true.This Microsoft Visual Basic Scripting Edition (VBScript) example uses the CustomPropertyChange event to enable a control when a Boolean field is set to True.
Nesse exemplo, crie dois campos personalizados na segunda página de um formulário.For this example, create two custom fields on the second page of a form. O primeiro, um campo Boolean, é chamado "RespondBy".The first, a Boolean field, is named "RespondBy". O segundo campo é chamado "DateToRespond".The second field is named "DateToRespond".
Sub Item_CustomPropertyChange(ByVal myPropName)
Select Case myPropName
Case "RespondBy"
Set myPages = Item.GetInspector.ModifiedFormPages
Set myCtrl = myPages("P.2").Controls("DateToRespond")
If Item.UserProperties("RespondBy").Value Then
myCtrl.Enabled = True
myCtrl.Backcolor = 65535 'Yellow
Else
myCtrl.Enabled = False
myCtrl.Backcolor = 0 'Black
End If
Case Else
End Select
End Sub
Confira tambémSee also
Objeto TaskRequestAcceptItemTaskRequestAcceptItem Object
Suporte e comentáriosSupport and feedback
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.