Событие OutlookBarShortcuts.BeforeShortcutAdd (Outlook)

Статья
04/07/2023

Возникает перед добавлением нового ярлыка в группу в области Ярлыки в результате действий пользователя или с помощью программного кода.

Синтаксис

выражение. BeforeShortcutAdd( _Cancel_ )

Выражение Переменная, представляющая объект OutlookBarShortcuts .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает этому аргументу значение True, ярлык не добавляется в группу.

Замечания

Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).

Пример

Следующий пример Microsoft Visual Basic для приложений (VBA) запрещает пользователю добавлять ярлык в первую группу на панели Ярлыки. Пример кода должен быть помещен в модуль класса, а подпрограмма должна быть вызвана Initialize_handler , прежде чем процедура события может быть вызвана 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

См. также

Объект OutlookBarShortcuts

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через