ItemSend 事件

在发送项目时发生，项目可以由用户通过检查器发送（在关闭检查器之前，用户单击“发送”按钮之后），也可以在程序中使用 Send 方法。该事件在 VBScript 中不可用。

object  该表达式的值为 Application 对象。

Item  必选。正在发送的项目。

Cancel  可选。当事件发生时为 False。如果事件过程将该参数设置为 True，则不完成发送操作并保持检查器为打开状态。

示例

以下示例显示如何响应用户输入取消 ItemSend 事件。

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Prompt$ = "Are you sure you want to send " & Item.Subject & "?"
    If MsgBox(Prompt$, vbYesNo + vbQuestion, "Sample") = vbNo Then
        Cancel = True
    End If
End Sub