NewInspector 事件

       

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

Sub object_NewInspector(ByVal Inspector As Inspector)

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

Inspector  必选。打开的检查器。

说明

该事件在新 Inspector 对象创建之后,检查器窗口显示之前发生。

示例

本示例在检查器打开时显示检查器的“常用”工具栏和“格式”工具栏。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Dim myOlApp As New Outlook.Application
Public WithEvents myOlInspectors As Outlook.Inspectors

Public Sub Initialize_handler()
    Set myOlInspectors = myOlApp.Inspectors
End Sub

Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Inspector.CommandBars.Item("Standard").Visible = True
    Inspector.CommandBars.Item("Formatting").Visible = True
End Sub