Evento OutlookBarShortcuts.ShortcutAdd (Outlook)
Se produce cuando se agrega un nuevo acceso directo a un grupo del panel de accesos directos.
Sintaxis
expresión. ShortcutAdd( _NewShortcut_ )
Expresión Variable que representa un objeto OutlookBarShortcuts .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| NewShortcut | Obligatorio | OutlookBarShortcut | El acceso directo que se va a agregar. |
Comentarios
Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).
Ejemplo:
En este ejemplo de Microsoft Visual Basic para Aplicacionea (VBA), se cambia el nombre de un acceso directo del Calendario cuando se agrega al primer grupo en el panel de accesos directos. El código de ejemplo debe incluirse en un módulo de clase, y se debe llamar a la rutina Initialize_handler antes de que Microsoft Outlook pueda llamar al procedimiento 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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.