Outlook VBA教程:BeforeFolderSwitch事件

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

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

Sub object_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)

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

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

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

VBA示例

本示例防止用户切换到名为 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

上页:Outlook VBA教程:BeforeDelete事件 下页:Outlook VBA教程:BeforeGroupAdd事件

Outlook VBA教程:BeforeFolderSwitch事件:相关链接

Outlook VBA教程:BeforeGroupAdd事件 Outlook VBA教程:BeforeGroupRemove事件
Outlook VBA教程:BeforeGroupSwitch事件 Outlook VBA教程:BeforeItemCopy事件
Outlook VBA教程:BeforeItemCut事件 Outlook VBA教程:BeforeItemPaste事件
Outlook VBA教程:BeforeMaximize事件 Outlook VBA教程:BeforeMinimize事件
Outlook VBA教程:BeforeMove事件 Outlook VBA教程:BeforeNavigate事件
Outlook VBA教程:BeforeReminderShow事件 Outlook VBA教程:BeforeShortcutAdd事件
Outlook VBA教程:BeforeShortcutRemove事件 Outlook VBA教程:BeforeSize事件
Outlook VBA教程:BeforeViewSwitch事件 Outlook VBA教程:Close事件
Outlook VBA教程:CustomAction事件 Outlook VBA教程:CustomPropertyChange事件
Outlook VBA教程:Deactivate事件 Outlook VBA教程:FolderAdd事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号