ItemChange 事件

当指定集合中的项目更改时发生。该事件在 VBScript 中不可用。

object  该表达式的值为“应用于”列表中的一个对象。

Item  必选。已更改的项目。

示例

本示例使用 AppointmentItem 对象的 Start 属性来决定约会是否在正常的上班时间后开始。如果是这样，并且 AppointmentItem 对象的 Sensitivity 属性未设置为 olPrivate，则示例会将该约会标记为“私有”。

Dim myOlApp As New Outlook.Application
Public WithEvents myOlItems As Outlook.Items

Public Sub Initialize_handler()
    Set myOlItems = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub myOlItems_ItemChange(ByVal Item As Object)
    If Format(Item.Start, "h") >= "17" And Item.Sensitivity <> olPrivate Then
        Prompt = "Appointment occurs after hours. Mark it private?"
        If MsgBox(Prompt, vbYesNo + vbQuestion) = vbYes Then
            Item.Sensitivity = olPrivate
            Item.Display
        End If
    End If
End Sub