通过

Application.ItemSend 事件 (Outlook)

  • 项目

只要发送一个Microsoft Outlook项目，就会发生可以由用户通过 检查器 (关闭检查器之前，但在用户单击 发送按钮之后) 或在程序中使用的 Outlook 项目，如 MailItem ， Send 方法时。

语法

expression。 ItemSend( _Item_ , _Cancel_ )

expression：表示“Application”对象的变量。

参数

名称 必需/可选 数据类型 说明
Item 必需 Object 要发送的项目。
Cancel 必需 Boolean 假 的事件发生时。 如果事件过程将此参数设置为 True ，则不完成发送操作并保持检查器为打开。

备注

该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 的示例演示如何取消 ItemSend 事件对用户输入的响应。 示例代码必须置于类模块中，并可以通过 Outlook 调用事件过程之前，必须调用 Initialize_handler例程。

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