SelectionChange 事件

在当前视图的选择更改时发生。其他选择的更改（例如选定的文件夹）不会引起该事件的发生。此外，如果当前文件夹是文件系统文件夹，或者显示了“Outlook 今日”或当前 Web 视图中的任何文件夹，则该事件也不会发生。该事件在 VBScript 中不可用。

object  该表达式的值为 Explorer 对象。

示例

本示例更改名为 Form1 的窗体的标题来显示顶层浏览器窗口中选定项目的数目。示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

Dim myOlApp As Outlook.Application
Public WithEvents myOlExp As Outlook.Explorer

Public Sub Initialize_handler()
    Set myOlExp = myOlApp.ActiveExplorer
End Sub

Private Sub myOlExp_SelectionChange()
    Form1.Caption = myOlExp.Selection.Count & " items selected."
End Sub