Outlook VBA教程:ItemChange事件

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

Sub object_ItemChange(ByVal Item As Object)

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

Item  必选。已更改的项目。

VBA示例

本示例使用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

上页:Outlook VBA教程:ItemAdd事件 下页:Outlook VBA教程:ItemRemove事件

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事件 Outlook VBA教程:Quit事件
Outlook VBA教程:Read事件 Outlook VBA教程:Reminder事件
Outlook VBA教程:ReminderAdd事件 Outlook VBA教程:ReminderChange事件
Outlook VBA教程:ReminderFire事件 Outlook VBA教程:ReminderRemove事件
Outlook VBA教程:Reply事件 Outlook VBA教程:ReplyAll事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号