Outlook VBA教程:CustomPropertyChange事件

当 Outlook项目的自定义属性更改时发生。属性名传递给过程,以便于用户确定哪个自定义属性被更改。

Sub object_CustomPropertyChange(ByVal Name As String)

object  该对象的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。

Name  必选。被更改的自定义属性名。

VBA示例

本 VBScript 示例使用CustomPropertyChange事件,在某个 Boolean 字段设置为 True 时启用某控件。

本示例在窗体的第二页创建两个自定义字段。第一个字段是名为“RespondBy”的 Boolean 字段,第二个字段名为“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

上页:Outlook VBA教程:CustomAction事件 下页:Outlook VBA教程:Deactivate事件

Outlook VBA教程:CustomPropertyChange事件:相关链接

Outlook VBA教程:Deactivate事件 Outlook VBA教程:FolderAdd事件
Outlook VBA教程:FolderChange事件 Outlook VBA教程:FolderRemove事件
Outlook VBA教程:FolderSwitch事件 Outlook VBA教程:Forward事件
Outlook VBA教程:GroupAdd事件 Outlook VBA教程:ItemAdd事件
Outlook VBA教程:ItemChange事件 Outlook VBA教程:ItemRemove事件
Outlook VBA教程:ItemSend事件 Outlook VBA教程:MapiLogonComplete事件
Outlook VBA教程:NewExplorer事件 Outlook VBA教程:NewInspector事件
Outlook VBA教程:NewMail事件 Outlook VBA教程:OnError事件
Outlook VBA教程:Open事件 Outlook VBA教程:OptionsPagesAdd事件
Outlook VBA教程:Progress事件 Outlook VBA教程:PropertyChange事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号