ActiveWindow 方法

返回代表桌面上顶层 Microsoft Outlook 窗口的对象，该对象可以为 Explorer 或 Inspector 对象。如果不存在打开的 Outlook 浏览器或检查器，则返回 Nothing。

expression  必选。该表达式返回 Application 对象。

示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例在顶层的 Microsoft Outlook 窗口为检查器窗口时，最小化该窗口。

Dim myOlApp As New Outlook.Application
If TypeName(myOlApp.ActiveWindow) = "Inspector" Then
    myOlApp.ActiveWindow.WindowState = olMinimized
End If

如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

If TypeName(Application.ActiveWindow) = "Inspector" Then
    Application.ActiveWindow.WindowState = 1
End If