Événement TaskRequestAcceptItem. CustomPropertyChange (Outlook)TaskRequestAcceptItem.CustomPropertyChange event (Outlook)
Survient lors de la modification d'une propriété personnalisée d'un élément (ce dernier étant une instance de l'objet parent).Occurs when a custom property of an item (which is an instance of the parent object) is changed.
SyntaxeSyntax
expression.expression. CustomPropertyChange
( _Name_
)CustomPropertyChange
( _Name_
)
expression Variable qui représente un objet TaskRequestAcceptItem .expression A variable that represents a TaskRequestAcceptItem object.
ParamètresParameters
NomName | Requis/FacultatifRequired/Optional | Type de donnéesData type | DescriptionDescription |
---|---|---|---|
NameName | ObligatoireRequired | StringString | Nom de la propriété personnalisée modifiée.The name of the custom property that was changed. |
RemarquesRemarks
Le nom de la propriété est transmis à la procédure afin que vous puissiez déterminer la propriété personnalisée qui a été modifiée.The property name is passed to the procedure so that you can determine which custom property changed.
ExempleExample
Cet exemple Microsoft Visual Basic Scripting Edition (VBScript) montre comment utiliser l’événement CustomPropertyChange pour activer un contrôle lorsqu’un champ de type Boolean est défini sur 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.
Pour cet exemple, créez deux champs personnalisés sur la deuxième page d’un formulaire.For this example, create two custom fields on the second page of a form. Le premier, un champ booléen , est nommé « RespondBy ».The first, a Boolean field, is named "RespondBy". Le deuxième champ est nommé « 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
Voir aussiSee also
TaskRequestAcceptItem, objetTaskRequestAcceptItem Object
Assistance et commentairesSupport and feedback
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.