Événement OutlookBarShortcuts.BeforeShortcutAdd (Outlook)
Se produit avant l’ajout d’un nouveau raccourci à un groupe dans le volet Raccourcis , soit à la suite d’une action de l’utilisateur, soit par le biais du code du programme.
Syntaxe
expression. BeforeShortcutAdd( _Cancel_ )
Expression Variable qui représente un objet OutlookBarShortcuts .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Cancel | Obligatoire | Booléen | False lorsque l'événement se produit. Si la procédure événementielle affecte à cet argument la valeur True, le raccourci n'est pas ajouté au groupe. |
Remarques
Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).
Exemple
L’exemple Microsoft Visual Basic pour Applications (VBA) suivant empêche un utilisateur d’ajouter un raccourci au premier groupe dans le volet Raccourcis . L’exemple de code doit être placé dans un module de classe et la Initialize_handler routine doit être appelée avant que la procédure événementielle puisse être appelée par 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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.