Outlook VBA教程:ItemSend事件

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

Sub object_ItemSend(ByVal Item As Object, Cancel As Boolean)

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

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

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

VBA示例

以下示例显示如何响应用户输入取消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

上页:Outlook VBA教程:ItemRemove事件 下页:Outlook VBA教程:MapiLogonComplete事件

Outlook VBA教程:ItemSend事件:相关链接

Outlook VBA教程:MapiLogonComplete事件 Outlook VBA教程:NewExplorer事件
Outlook VBA教程:NewInspector事件 Outlook VBA教程:NewMail事件
Outlook VBA教程:OnError事件 Outlook VBA教程:Open事件
Outlook VBA教程:OptionsPagesAdd事件 Outlook VBA教程:Progress事件
Outlook VBA教程:PropertyChange事件 Outlook VBA教程:Quit事件
Outlook VBA教程:Read事件 Outlook VBA教程:Reminder事件
Outlook VBA教程:ReminderAdd事件 Outlook VBA教程:ReminderChange事件
Outlook VBA教程:ReminderFire事件 Outlook VBA教程:ReminderRemove事件
Outlook VBA教程:Reply事件 Outlook VBA教程:ReplyAll事件
Outlook VBA教程:SelectionChange事件 Outlook VBA教程:Send事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号