Outlook VBA教程:Open事件

当在检查器中打开 Microsoft Outlook项目时发生。本事件发生时,将初始化 Inspector对象但并不显示该对象。Open事件和Read事件的不同在于,每当用户在支持单元格内编辑的视图中选择项目或者在“检查器”中打开项目时,Read 都发生。

Sub object_Open(Cancel As Boolean)

object  该表达式的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。

Cancel  可选(VBScript 中不可用)。当事件发生时为 False。如果事件过程将该参数设置为 True,则不完成打开操作并且不显示检查器。

说明

在 VBScript 中,如果将该函数的返回值设置为 False,则不完成打开操作并且不显示检查器。

VBA示例

本 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

上页:Outlook VBA教程:OnError事件 下页:Outlook VBA教程:OptionsPagesAdd事件

Outlook VBA教程:Open事件:相关链接

Outlook VBA教程:OptionsPagesAdd事件 Outlook VBA教程:Progress事件
Outlook VBA教程:PropertyChange事件 Outlook VBA教程:Quit事件
Outlook VBA教程:Read事件 Outlook VBA教程:Reminder事件
Outlook VBA教程:ReminderAdd事件 Outlook VBA教程:ReminderChange事件
Outlook VBA教程:ReminderFire事件 Outlook VBA教程:ReminderRemove事件
Outlook VBA教程:Reply事件 Outlook VBA教程:ReplyAll事件
Outlook VBA教程:SelectionChange事件 Outlook VBA教程:Send事件
Outlook VBA教程:ShortcutAdd事件 Outlook VBA教程:Snooze事件
Outlook VBA教程:Startup事件 Outlook VBA教程:SyncEnd事件
Outlook VBA教程:SyncStart事件 Outlook VBA教程:ViewAdd事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号