全部显示

Open 事件

       

当在检查器中打开 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