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

Статья
04/07/2023

Происходит при вставлении элемента Outlook.

Синтаксис

выражение. BeforeItemPaste( _ClipboardContent_ , _Target_ , _Cancel_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Буфер обменаContent	Обязательный	Variant	Содержимое для вставки.
Target (Целевое значение)	Обязательный	Folder	Назначение вставки.
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает этому аргументу значение True, операция не завершается и элемент не удаляется.

Замечания

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

Пример

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

Public WithEvents myOlExp As Outlook.Explorer 
 
 
 
Sub Initialize_Handler() 
 
 Set myOlExp = Application.ActiveExplorer 
 
End Sub 
 
 
 
Private Sub myOlExp_BeforeItemPaste(ClipboardContent As Variant, ByVal Target As Folder, Cancel As Boolean) 
 
 Dim lngAns As Integer 'users' answer 
 
 'Prompt user about paste 
 
 lngAns = MsgBox("Are you sure you want to paste the contents of the clipboard into the " _ 
 
 & Target.Name & "?", vbYesNo) 
 
 If lngAns = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub

См. также

Объект Explorer

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

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

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