通过

Items.ItemChange 事件 (Outlook)

  • 项目

当指定集合中的项目更改时发生。 此事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

语法

expression。 ItemChange( _Item_ )

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

参数

名称 必需/可选 数据类型 说明
Item 必需 Object 已更改的项目。

示例

此示例使用 AppointmentItem 对象的 Start 属性来确定约会是否在正常工作时间之后开始。 如果存在，并且 AppointmentItem 对象的 Sensitivity 属性尚未设置为 olPrivate，则示例将提供将约会标记为专用。

Public WithEvents myOlItems As Outlook.Items 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items 
 
End Sub 
 
 
 
Private Sub myOlItems_ItemChange(ByVal Item As Object) 
 
Dim prompt As String 
 
 If VBA.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

另请参阅

Items 对象

支持和反馈

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