粘贴 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。