共用方式為

(Outlook) 的 Application.ItemSend 事件

  • 發行項

每當使用者在關閉偵測器之前透過 Inspector (傳 送 Microsoft Outlook 專案，但使用者按一下 [ 傳送 ] 按鈕之後) 或當程式中使用 Outlook 專案的 Send 方法， 例如 MailItem時，就會發生此事件。

語法

expression。 ItemSend( _Item_ , _Cancel_ )

expression 代表 Application 物件的變數。

參數

名稱 必要/選用 資料類型 描述
項目 必要 Object 要傳送的項目。
Cancel 必要 布林值 False 事件發生時。 如果事件程序將此引數設定為 True，則無法完成傳送動作，而檢查員仍在開啟中。

註解

Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例示範如何取消 ItemSend 事件以回應使用者輸入。 範例程式碼必須放在類別模組中，而且 Initialize_handler 必須先呼叫常式，Outlook 才能呼叫事件程序。

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 
 
 
 
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean) 
 
 Dim prompt As String 
 
 prompt = "Are you sure you want to send " & Item.Subject & "?" 
 
 If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub

另請參閱

Application 物件

支援和意見反應

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