共用方式為


Explorer.BeforeItemCopy 事件 (Outlook)

當複製 Outlook 項目時發生此事件。

語法

expressionBeforeItemCopy( _Cancel_ )

表達 代表 Explorer 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
Cancel 必要 布林值 False 事件發生時。 如果事件程序將此引數設定為 True,則無法完成作業而且無法複製項目。

註解

在啟動此物件之後可以將它取消。

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例會在複製專案之前提示使用者。 系統會向確認應該複製專案的使用者顯示訊息。 如果使用者按一下 [ ],專案會複製到剪貼簿。 範例程式碼必須放在類別模組中,例如 ThisOutlookSession ,而且 Initialize_handler 必須先呼叫常式,Microsoft Outlook 才能呼叫事件程序。

Public WithEvents myOlExp As Outlook.Explorer 
 
 
 
Sub Initialize_Handler() 
 
Set myOlExp = Application.ActiveExplorer 
 
End Sub 
 
 
 
Private Sub myOlExp_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

另請參閱

Explorer 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應