通过

Explorer.BeforeFolderSwitch 事件 (Outlook)

  • 项目

在浏览器前往新文件夹前发生，可以是用户操作或程序代码的结果。

语法

expression。 BeforeFolderSwitch( _NewFolder_ , _Cancel_ )

表达 一个代表 Explorer 对象的变量。

参数

名称 必需/可选 数据类型 说明
NewFolder 必需 Object 要切换到该 文件夹 的对象资源管理器。
Cancel 必需 Boolean 假 的事件发生时。 如果事件过程将此参数设置为 True ，将取消导航，并且不更改当前的文件夹。

备注

该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

如果要切换到的文件夹位于不支持自动化 (的命名空间中，例如文件系统) ， 则 NewFolder 为 Nothing。

示例

本示例防止用户切换到名为"Off Limits"的文件夹。 示例代码必须放在 类模块（如 ThisOutlookSession）中，并且 Initialize_handler 必须先调用例程，然后 Microsoft Outlook 才能调用事件过程。 若要在不出错的情况下运行此示例，请确保在活动浏览器中显示的文件夹中存在名为"Off Limits"的文件夹。

Public WithEvents myOlExp As Outlook.Explorer 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlExp = Application.ActiveExplorer 
 
End Sub 
  
 
Private Sub myOlExp_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean) 
 
 If NewFolder.Name = "Off Limits" Then 
 
 MsgBox "You don't have permission to access this folder." 
 
 Cancel = True 
 
 End If 
 
End Sub

另请参阅

资源管理器对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。