共用方式為

Outlook () 的 Explorer.BeforeItemPaste 事件

  • 發行項

當貼上 Outlook 項目時會發此事件。

語法

expression。 BeforeItemPaste( _ClipboardContent_ , _Target_ , _Cancel_ )

表達 代表 Explorer 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
ClipboardContent 必要 Variant 要貼上的內容。
Target 必要 Folder 貼上的目標。
Cancel 必要 布林值 False 事件發生時。 如果事件程序將此引數設定為 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

另請參閱

Explorer 物件

支援和意見反應

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