当在检查器中打开 Microsoft Outlook 项目时发生。本事件发生时,将初始化 Inspector 对象但并不显示该对象。Open 事件和 Read 事件的不同在于,每当用户在支持单元格内编辑的视图中选择项目或者在“检查器”中打开项目时,Read 都发生。
Sub object_Open(Cancel As Boolean)
object 该表达式的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Cancel 可选(VBScript 中不可用)。当事件发生时为 False。如果事件过程将该参数设置为 True,则不完成打开操作并且不显示检查器。
在 VBScript 中,如果将该函数的返回值设置为 False,则不完成打开操作并且不显示检查器。
本 VBScript 示例使用 Open 事件在每次打开项目时显示“所有字段”页。
Function Item_Open()
Item.GetInspector.SetCurrentFormPage "All Fields"
End Function
本 VBScript 示例使用 Unread 属性检测项目是否以前被读过。如果被读过,则询问用户是否将其打开。如果用户回答“否”,则将返回值设置为 False 以防止打开该项目。
Function Item_Open()
If Item.UnRead = False Then
myMsg = "Do you want to open this message again?"
If MsgBox(myMsg, 4) = 6 Then
Item_Open = True
Else
Item_Open = False
End If
End If
End Function