Question

我有20多封由宏代码创建的电子邮件，其中包含Subject，To，CC，BCC等所有详细信息。我想在MS Outlook中保存这些电子邮件为草稿在发送之前。

这是我的代码：

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

有人可以请求帮助吗？

Answer 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

Answer 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

Excel宏将电子邮件另存为MS Outlook 2010中的草稿

2 个答案: