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.