Evento OutlookBarShortcuts.ShortcutAdd (Outlook)

Ocorre quando um novo atalho é adicionado a um grupo do painel atalhos.

Sintaxe

expression. ShortcutAdd( _NewShortcut_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
NewShortcut	Obrigatório	OutlookBarShortcut	O atalho que está sendo adicionado.

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) altera o nome de um atalho do Calendário quando adicionado ao primeiro grupo 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 para que o Microsoft Outlook chame o procedimento de evento.

Dim WithEvents myOlSCuts As Outlook.OutlookBarShortcuts 
Dim myOlBar As Outlook.OutlookBarPane 
 
Sub Initialize_handler() 
 Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar") 
 Set myOlSCuts = myOlBar.Contents.Groups.Item(1).Shortcuts 
End Sub 
 
Private Sub myOlSCuts_ShortcutAdd(ByVal NewShortcut As outlook.OutlookBarShortcut) 
 Dim myNS As Outlook.NameSpace 
 
 Set myNS = Application.GetNamespace("MAPI") 
 If NewShortcut.Target.Name = "Calendar" Then 
 NewShortcut.Name = myNS.CurrentUser & "'s Schedules" 
 End If 
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.