Evento OutlookBarShortcuts.BeforeShortcutAdd (Outlook)
Se produce antes de agrega un nuevo acceso directo a un grupo en el panel de accesos directos, como resultado de la acción del usuario o mediante código de programación.
Sintaxis
expresión. BeforeShortcutAdd( _Cancel_ )
Expresión Variable que representa un objeto OutlookBarShortcuts .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Cancel | Obligatorio | Boolean | False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, el acceso directo no se agrega al grupo. |
Comentarios
Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).
Ejemplo:
El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se impide que un usuario agregue un acceso directo al primer grupo en el panel de accesos directos. El código de ejemplo debe ubicarse en un módulo de clase y se debe llamar a la rutina de Initialize_handler antes de que el procedimiento de evento puede ser llamado por 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
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.