从 Excel 宏中回复所有 Outlook答案

【问题标题】：Reply All in Outlook from Excel Macro从 Excel 宏中回复所有 Outlook
【发布时间】：2015-08-18 22:30:13
【问题描述】：

当您在 Outlook 中单击全部回复时，它将打开一个新的电子邮件框，但在您的电子邮件正文下方显示上一个电子邮件线程。我正在尝试全部回复 Outlook 中选定的电子邮件并输入信息。我想通过 Excel 中的宏来完成这一切。我的问题是，如果我尝试在“全部回复”的正文中写入内容，它会删除整个先前的电子邮件线程。

Sub test()

Dim mail 'object/mail item iterator
Dim replyall 'object which will represent the reply email

For Each mail In Outlook.Application.ActiveExplorer.Selection
    If mail.Class = olMail Then
        Set replyall = mail.replyall
        With replyall
            '.Body = "blah blah hello world"  '<-- uncomment and it will delete the thread
            .Display
        End With
    End If
Next

End Sub

注意：我最接近的是这个，但它会删除我的签名、电子邮件分隔符和最新电子邮件中的标题信息：

.Body = "blah blah hello world" & mail.body

感谢任何解决方案！谢谢！

【问题讨论】：

看起来 Dmitry 已经回答了您的问题。 Ron De Bruin 编写了一些优秀的面向 OL 的代码：msdn.microsoft.com/en-us/library/ff519602(v=office.11).aspx

标签： excel vba outlook

【解决方案1】：

对于纯文本，你可以这样做

.Body = "blah blah hello world" & vbCrLf & .Body

如果您想保留格式，您需要将您的字符串插入到replyall.HTMLBody 属性中（您不能只连接两个 HTML 字符串）。

【讨论】：