Application.ItemSend 事件 (Outlook)

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

语法

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