Evento OutlookBarShortcuts.BeforeShortcutRemove (Outlook)
Se produce antes de quita un nuevo acceso directo de 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. BeforeShortcutRemove( _Shortcut_ , _Cancel_ )
Expresión Variable que representa un objeto OutlookBarShortcuts .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Shortcut | Obligatorio | OutlookBarShortcut | Objeto OutlookBarShortcut que se va a quitar. |
| Cancel | Obligatorio | Boolean | False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, el acceso directo no se quita del 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 quite un acceso directo desde 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_BeforeShortcutRemove(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean)
MsgBox "You are not allowed to remove a shortcut from 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.