BeforeFolderSwitch 事件

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

注意  如果切换到的文件夹位于不支持自动化功能的命名域（例如文件系统）中，那么 NewFolder 将为 Nothing。

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

NewFolder  必选。浏览器切换到的 MAPIFolder 对象。

Cancel  可选。当事件发生时，为 False。如果事件过程将该参数设置为 True，将取消导航，而且不改变当前文件夹。

示例

本示例防止用户切换到名为 Off Limits 的文件夹。示例代码必须放在类模块中，并且在 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_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
    If NewFolder.Name = "Off Limits" Then
        MsgBox "You do not have permission to access this folder."
        Cancel = True
    End If
End Sub