如果电子邮件已关闭但未发送，如何显示消息？

Question

我知道这是非常基本的，但现在总是空白。 我有基本代码在outlook中发送电子邮件，但是如果此人在不发送电子邮件的情况下关闭电子邮件，我需要知道该行是否出现错误或消息。

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

'Sends email

With OutMail
    .to = " someone@nowhere.com"
    .Subject = " Rich Request"
    .HTMLBody = "Please find attached new     request"    .Attachments.AddApplication.ActiveWorkbook.FullName
  .Display

End With

Set OutApp = Nothing

Answer 1

您无法在Outlook对象模型中执行此操作。

CDO 1.21（不再由Outlook安装或由Microsoft支持）用于在未发送消息的情况下关闭消息时引发异常。您唯一的另外两个选择是扩展MAPI（仅限C ++或Delphi）或Redemption - 其RDOMail。如果消息被解除，则显示（true）方法将引发异常（MAPI_E_USER_CANCEL）。