Evento OutlookBarShortcuts.BeforeShortcutAdd (Outlook)
Ocorre antes de um novo atalho é adicionado a um grupo no painel atalhos, como resultado de uma ação do usuário ou pelo código de programa.
Sintaxe
expression. BeforeShortcutAdd( _Cancel_ )
Expressão Uma variável que representa um objeto OutlookBarShortcuts .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Cancel | Obrigatório | Boolean | False quando o evento ocorre. Se o procedimento de evento define este argumento como True, o atalho não será adicionado ao grupo. |
Comentários
Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
Exemplo
Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) impede que um usuário adicionando um atalho ao primeiro grupo no painel atalhos. O código de exemplo deve ser colocado em um módulo de classe e a rotina Initialize_handler deve ser chamada antes que o procedimento de evento pode ser chamado pelo Microsoft Outlook.
Dim WithEvents myOlShortcuts As Outlook.OutlookBarShortcuts
Dim myOlBar As Outlook.OutlookBarPane
Sub Initialize_handler()
Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlShortcuts = myOlBar.Contents.Groups.Item(1).Shortcuts
End Sub
Private Sub myOlShortcuts_BeforeShortcutAdd(Cancel As Boolean)
MsgBox "You are not allowed to add a shortcut to this group."
Cancel = True
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.