当 Microsoft Outlook 项目的标准属性(例如,Subject 或 To)更改时发生。属性名传递给事件,这样用户就可以确定哪个属性被更改。
Sub object_PropertyChange(ByVal Name As String)
object 该对象的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Name 必选。已更改的属性名。
本示例使用 PropertyChange 事件禁用项目的提醒设置。
Sub Item_PropertyChange(ByVal myPropertyName)
Select Case myPropertyName
Case "ReminderSet"
MsgBox "You may not set a reminder on this item!"
Item.ReminderSet = False
Case Else
End Select
End Sub