FolderSwitch 事件

当浏览器导航到新文件夹时发生，可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

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

示例

本示例根据当前显示的文件夹显示或隐藏菜单栏。示例代码必须放在类模块中，并且在 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_FolderSwitch()
    Select Case MyOlExp.CurrentFolder.Name
        Case "Sales Contacts"
            MyToolsMenu.Visible = True
        Case Else
            MyToolsMenu.Visible = False
    End Select
End Sub