ContactItem. CustomPropertyChange-Ereignis (Outlook)ContactItem.CustomPropertyChange event (Outlook)

Tritt auf, wenn eine benutzerdefinierte Aktion eines Elements (bei dem es sich um eine Instanz des übergeordneten Objekts handelt) geändert wird.Occurs when a custom property of an item (which is an instance of the parent object) is changed.

SyntaxSyntax

Ausdruck.expression. CustomPropertyChange( _Name_ )CustomPropertyChange( _Name_ )

Ausdruck Eine Variable, die ein ContactItem -Objekt darstellt.expression A variable that represents a ContactItem object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
NameName ErforderlichRequired StringString Der Name der benutzerdefinierten Eigenschaft, die geändert wurde.The name of the custom property that was changed.

BemerkungenRemarks

Der Name der Eigenschaft wird an die Prozedur übergeben, damit Sie ermitteln können, welche benutzerdefinierte Eigenschaft geändert wurde.The property name is passed to the procedure so that you can determine which custom property changed.

BeispielExample

In diesem Beispiel für Microsoft Visual Basic Scripting Edition (VBScript) wird das CustomPropertyChange -Ereignis verwendet, um ein Steuerelement zu aktivieren, wenn ein Boolesches Feld auf truefestgelegt ist.This Microsoft Visual Basic Scripting Edition (VBScript) example uses the CustomPropertyChange event to enable a control when a Boolean field is set to True.

In diesem Beispiel erstellen Sie zwei benutzerdefinierte Felder auf der zweiten Seite eines Formulars.For this example, create two custom fields on the second page of a form. Das erste ein Feld vom Typ Boolean ist "RespondBy".The first, a Boolean field, is named "RespondBy". Das zweite Feld heißt "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

Siehe auchSee also

ContactItem-ObjektContactItem Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.