Outlook VBA教程:NewExplorer事件

当打开新浏览器窗口时发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

Sub object_NewExplorer(ByVal Explorer As Explorer)

object  该表达式的值为Explorers集合对象。

Explorer  必选。打开的浏览器。

说明

该事件在新Explorer对象创建之后,浏览器窗口显示之前发生。

VBA示例

本示例在新浏览器将要显示时最小化当前活动的浏览器窗口。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myOlApp As New Outlook.Application
Public WithEvents myOlExplorers As Outlook.Explorers
Public Sub Initialize_handler()
    Set myOlExplorers = myOlApp.Explorers
End Sub
Private Sub myOlExplorers_NewExplorer(ByVal Explorer As Outlook.Explorer)
    If TypeName(myOlApp.ActiveExplorer) <> "Nothing" Then
        myOlApp.ActiveExplorer.WindowState = olMinimized
    End If
End Sub

上页:Outlook VBA教程:MapiLogonComplete事件 下页:Outlook VBA教程:NewInspector事件

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

Outlook VBA教程:NewInspector事件 Outlook VBA教程:NewMail事件
Outlook VBA教程:OnError事件 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事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号