Outlook VBA教程:BeforeNavigate事件

当用户在Outlook 面板的快捷方式上单击以导航到不同文件夹时发生。该事件在 VBScript 中不可用。

Sub object_BeforeNavigate(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean)

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

Shortcut  必选。用户单击的快捷方式。

Cancel  可选。当事件发生时为 False。如果事件过程将该参数设置为 True,将不更改当前的文件夹。

VBA示例

本示例防止用户使用“Outlook 面板”打开“便笺”文件夹。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


Dim myOlApp As New Outlook.Application
Public WithEvents myOlPane As Outlook.OutlookBarPane
Public Sub Initialize_handler()
    Set myOlPane = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
End Sub
Private Sub myOlPane_BeforeNavigate(ByVal Shortcut As Outlook.OutlookBarShortcut, Cancel As Boolean)
    If Shortcut.Name = "Notes" Then
        MsgBox "You cannot view the Notes folder."
        Cancel = True
    End If
End Sub

上页:Outlook VBA教程:BeforeMove事件 下页:Outlook VBA教程:BeforeReminderShow事件

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事件
Outlook VBA教程:FolderChange事件 Outlook VBA教程:FolderRemove事件
Outlook VBA教程:FolderSwitch事件 Outlook VBA教程:Forward事件
Outlook VBA教程:GroupAdd事件 Outlook VBA教程:ItemAdd事件
Outlook VBA教程:ItemChange事件 Outlook VBA教程:ItemRemove事件
Outlook VBA教程:ItemSend事件 Outlook VBA教程:MapiLogonComplete事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号