Evento OutlookBarPane.BeforeNavigate (Outlook)
Ocorre quando o usuário clica em um atalho no painel Atalhos para navegar até uma pasta diferente.
Sintaxe
expression. BeforeNavigate( _Shortcut_ , _Cancel_ )
Expressão Uma variável que representa um objeto 'OutlookBarPane'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Shortcut | Obrigatório | OutlookBarShortcut | O atalho em que o usuário clicou. |
| Cancel | Obrigatório | Boolean | False quando o evento ocorre. Se o procedimento de evento define este argumento como True, a pasta atual não é alterada. |
Comentários
Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
Exemplo
Esse exemplo do Microsoft Visual Basic for Applications (VBA) impede que o usuário utilize o painel Atalhos para abrir a pasta Anotações. O código de exemplo deve ser colocado em um módulo de classe, e a rotina Initialize_handler deve ser chamada para que o Microsoft Outlook possa chamar o procedimento de evento. Se você ainda não tiver um atalho para a pasta Notas , precisará criar um para executar este exemplo.
Public WithEvents myOlPane As Outlook.OutlookBarPane
Public Sub Initialize_handler()
Set myOlPane = Application.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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.