NewExplorer 事件

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

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

Explorer  必选。打开的浏览器。

说明

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

示例

本示例在新浏览器将要显示时最小化当前活动的浏览器窗口。示例代码必须放在类模块中，并且在 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