BeforeNavigate Event

Occurs when the user clicks a shortcut in the Shortcuts pane to navigate to a different folder. This event is not available in Microsoft Visual Basic Scripting Edition (VBScript).

Subobject**_BeforeNavigate(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean)**

*object   * An expression that evaluates to an OutlookBarPane object.

Shortcut Required. The shortcut that the user clicked.

*Cancel      * Optional. False when the event occurs. If the event procedure sets this argument to True, the current folder is not changed.


This Microsoft Visual Basic/Visual Basic for Applications (VBA) example prevents the user from using the Shortcuts pane to open the Notes folder. The sample code must be placed in a class module, and the Initialize_handler routine must be called before the event procedure can be called by Microsoft Outlook. If you do not have a shortcut to the Notes folder already, you need to create one to run this example.

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

Applies to | OutlookBarPane Object

See Also | OutlookBarShortcut Object | Using events with Automation