通过

Outlook) (Results.ItemChange 事件

  • 项目

当指定集合中的项目更改时发生。

语法

expression。 ItemChange( _Item_ )

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

参数

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

备注

该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

示例

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

另请参阅

结果对象

支持和反馈

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