Outlook VBA教程:BeforeItemCopy事件

复制项目时发生。该事件在开始后可以取消。

Private Sub expression_BeforeItemCopy(Cancel As Boolean)

expression  该表达式返回一个在类模块中以事件形式声明的Explorer对象。

Cancel  必选,Boolean 类型。当事件发生时为 False。如果事件过程将此参数设为 True,将不完成该操作,并且不复制项目。

VBA示例

以下示例在复制项目前提示用户。向用户显示一条消息验证是否要复制该项目。如果用户单击“是”,就复制该项目。


Private Sub objExplorer_BeforeItemCopy(Cancel As Boolean)
'Prompts the user before copying an item
   Dim lngAns As Long 'user answer
   'Display question to user
   lngAns = MsgBox("Are you sure you want to copy the item?", vbYesNo)
   If lngAns = vbYes Then
       Cancel = False
   Else
       'Set Cancel argument based on answer
       Cancel = True
   End If
End Sub

上页:Outlook VBA教程:BeforeGroupSwitch事件 下页:Outlook VBA教程:BeforeItemCut事件

Outlook VBA教程:BeforeItemCopy事件:相关链接

Outlook VBA教程:BeforeItemCut事件 Outlook VBA教程:BeforeItemPaste事件
Outlook VBA教程:BeforeMaximize事件 Outlook VBA教程:BeforeMinimize事件
Outlook VBA教程:BeforeMove事件 Outlook VBA教程:BeforeNavigate事件
Outlook VBA教程:BeforeReminderShow事件 Outlook VBA教程:BeforeShortcutAdd事件
Outlook VBA教程:BeforeShortcutRemove事件 Outlook VBA教程:BeforeSize事件
Outlook VBA教程:BeforeViewSwitch事件 Outlook VBA教程:Close事件
Outlook VBA教程:CustomAction事件 Outlook VBA教程:CustomPropertyChange事件
Outlook VBA教程:Deactivate事件 Outlook VBA教程:FolderAdd事件
Outlook VBA教程:FolderChange事件 Outlook VBA教程:FolderRemove事件
Outlook VBA教程:FolderSwitch事件 Outlook VBA教程:Forward事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号