Событие OutlookBarGroups.BeforeGroupRemove (Outlook)
Происходит перед удалением новой группы из области Ярлыки в результате действия пользователя или программного кода.
Синтаксис
выражение. BeforeGroupRemove
( _Group_
, _Cancel_
)
Выражение Переменная, представляющая объект OutlookBarGroups .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Group | Обязательный | OutlookBarGroup | Удаляемая группа OutlookBarGroup . |
Отмена | Обязательный | Boolean | Значение false при возникновении события. Если процедура события задает этому аргументу значение True, группа не удаляется из области Ярлыки . |
Замечания
Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).
Пример
Этот пример Microsoft Visual Basic для приложений (VBA) запрещает пользователю удалять группу из области Ярлыки. Пример кода должен быть помещен в модуль класса, например ThisOutlookSession
, и подпрограмма должна быть вызвана Initialize_handler
, прежде чем процедура события может быть вызвана Outlook. При попытке удалить ярлык по-прежнему будет предложено. Однако группа не будет удалена, даже если вы нажмете кнопку Да.
Dim WithEvents myOlGroups As Outlook.OutlookBarGroups
Dim myOlBar As Outlook.OutlookBarPane
Sub Initialize_handler()
Set myOlBar = Application.ActiveExplorer.Panes.item("OutlookBar")
Set myOlGroups = myOlBar.Contents.Groups
End Sub
Private Sub myOlGroups_BeforeGroupRemove(ByVal Group As OutlookBarGroup, Cancel As Boolean)
Cancel = True
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.