Evento OutlookBarShortcuts.BeforeShortcutRemove (Outlook)

Ocorre antes que um novo atalho é removido de um grupo no painel atalhos, como resultado de uma ação do usuário ou pelo código de programa.

Sintaxe

expression. BeforeShortcutRemove( _Shortcut_ , _Cancel_ )

Expressão Uma variável que representa um objeto OutlookBarShortcuts .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Shortcut	Obrigatório	OutlookBarShortcut	O OutlookBarShortcut que está sendo removido.
Cancel	Obrigatório	Boolean	False quando o evento ocorre. Se o procedimento de evento define este argumento como True, o atalho não é removido do 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 remova um atalho do 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_BeforeShortcutRemove(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean) 
 MsgBox "You are not allowed to remove a shortcut from this group." 
 Cancel = True 
End Sub

Confira também

Objeto OutlookBarShortcuts

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.