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
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.