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

Статья
04/07/2023

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

Синтаксис

выражение. BeforeShortcutRemove( _Shortcut_ , _Cancel_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Ярлык	Обязательный	OutlookBarShortcut	Удаляемый объект OutlookBarShortcut .
Отмена	Обязательный	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_BeforeShortcutRemove(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean) 
 MsgBox "You are not allowed to remove a shortcut from this group." 
 Cancel = True 
End Sub

См. также

Объект OutlookBarShortcuts

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

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

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