Outlook) (ContactItem.CustomPropertyChange 事件

当项目(父对象的一个实例)的自定义属性更改时发生。

语法

expressionCustomPropertyChange( _Name_ )

表达 一个代表 ContactItem 对象的变量。

参数

名称 必需/可选 数据类型 说明
Name 必需 String 被更改的自定义属性的名称。

备注

属性名传递给过程,以便于用户确定哪个自定义属性被更改。

示例

此 Microsoft Visual Basic 脚本版本 (VBScript) 示例使用 CustomPropertyChange 事件启用的控件,如果 Boolean字段设置为 True

此示例中,窗体第二页上创建两个自定义字段。 第一个 布尔型 字段,被命名为"RespondBy"。 第二个字段的名称为"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

另请参阅

创建 ContactItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。