通过

AppointmentItem.CustomPropertyChange 事件 (Outlook)

  • 项目

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

语法

expression。 CustomPropertyChange( _Name_ )

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

参数

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

备注

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

示例

此 Microsoft Visual Basic 脚本版本 (VBScript) 示例使用 CustomPropertyChange 事件的布尔型字段设置为 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

另请参阅

AppointmentItem 对象

支持和反馈

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