如何将电子邮件另存为草稿？答案

【问题标题】：How to save email as draft?如何将电子邮件另存为草稿？
【发布时间】：2017-09-08 08:08:54
【问题描述】：

我有 20 多封由 Excel VBA 代码创建的电子邮件。

我想将这些保存为草稿。

With OutMail
    .SentOnBehalfOfName = email_from
    .To = email_to
    .CC = email_cc
    .BCC = email_bcc
    .subject = subject
    .HTMLBody = "Dear All,<br /> <br/>Please find below today's MIS. <br/>" & RangetoHTML(rng)
    .Attachments.Add (Attach_Path)
    .display
End With

【问题讨论】：

OutMail.Save 怎么样？
stackoverflow.com/a/36992917/4539709

标签： excel vba outlook

【解决方案1】：

应该只是Save 和Close..的简单案例。

With OutMail
    .SentOnBehalfOfName = email_from
    .To = email_to
    .CC = email_cc
    .BCC = email_bcc
    .Subject = Subject
    .HTMLBody = "Dear All,<br /> <br/>Please find below today's MIS. <br/>" & RangetoHTML(Rng)
    .Attachments.Add (Attach_Path)
    .Save
    .Close
End With

【讨论】：

【解决方案2】：

With OutMail
    .SentOnBehalfOfName = email_from
    .To = email_to
    .CC = email_cc
    .BCC = email_bcc
    .Subject = Subject
    .HTMLBody = "Dear All,<br /> <br/>Text <br/>" & RangetoHTML(Rng)
    .Attachments.Add (Attach_Path)
    .Close olSave
End With

【讨论】：