通过

MailItem.Read 事件 (Outlook)

  • 项目

当用户打开父对象的实例进行编辑时发生。

语法

expression。 Read

expression 表示 MailItem 对象的变量。

备注

读取 事件与 Open 事件不同，每当用户在支持单元格内编辑或者在 检查器 中打开该项目时的视图中选择项时，即发生 读取 。

示例

此 Visual Basic for Applications (VBA) 示例使用 Read 事件自动增加的计数器跟踪频率读取项。

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Sub Initialize_handler() 
 
 Set myItem = Application.ActiveExplorer.CurrentFolder.Items(1) 
 
 myItem.Display 
 
End Sub 
 
 
 
Sub myItem_Read() 
 
 Dim myProperty As Outlook.UserProperty 
 
 Set myProperty = myItem.UserProperties("ReadCount") 
 
 If (myProperty Is Nothing) Then 
 
 Set myProperty = myItem.UserProperties.Add("ReadCount", olNumber) 
 
 End If 
 
 myProperty.Value = myProperty.Value + 1 
 
 myItem.Save 
 
End Sub

另请参阅

MailItem 对象

支持和反馈

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