Événement ContactItem. CustomPropertyChange (Outlook)ContactItem.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 ContactItem .expression A variable that represents a ContactItem 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

ContactItem, objetContactItem 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.