Событие Explorer.BeforeItemCut (Outlook)

Статья
04/07/2023

Происходит, когда элемент Outlook вырезается из папки.

Синтаксис

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

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

Параметры

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

Замечания

Это событие можно отменить после его запуска. Если событие отменено, элемент не будет удален.

Пример

В следующем примере Microsoft Visual Basic для приложений (VBA) пользователю предлагается предупреждающее сообщение, прежде чем элемент будет вырезан из папки. Если пользователь нажимает кнопку Да, элемент вырезается из папки. Если пользователь нажмет кнопку Нет, элемент не будет удален из папки. Пример кода должен быть помещен в модуль класса, например ThisOutlookSession, и подпрограмма должна быть вызвана Initialize_handler , прежде чем процедура события может быть вызвана Microsoft Outlook.

Public WithEvents myOlExp As Outlook.Explorer 
 
Sub Initialize_Handler() 
Set myOlExp = Application.ActiveExplorer 
End Sub 
 
Private Sub myOlExp_BeforeItemCut(Cancel As Boolean) 
'Prompts the user before cutting an item 
 
 Dim lngAns As Long 
 'Display question to user 
 lngAns = MsgBox("Are you sure you want to cut the item?", vbYesNo) 
 'Set cancel argument based on user's answer 
 If lngAns = vbYes Then 
 Cancel = False 
 ElseIf lngAns = vbNo Then 
 Cancel = True 
 End If 
 
End Sub

См. также

Объект Explorer

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

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

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