通过

Explorer.BeforeItemPaste 事件 (Outlook)

  • 项目

粘贴 Outlook 项目时发生。

语法

expression. BeforeItemPaste( _ClipboardContent_ , _Target_ , _Cancel_ )

表达 一个代表 Explorer 对象的变量。

参数

名称 必需/可选 数据类型 说明
ClipboardContent 必需 Variant 要粘贴的内容。
Target 必需 Folder 粘贴内容的目标。
Cancel 必需 Boolean 假 的事件发生时。 如果事件过程将此参数设置为 True ，则不完成该操作，不删除该项目。

备注

该事件在开始后可以取消。

示例

以下 Microsoft Visual Basic for Applications (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

另请参阅

资源管理器对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。