Question

当您在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

任何解决方案都表示赞赏！谢谢！

Answer 1

对于纯文本，您可以

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

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

从Excel宏中在Outlook中全部回复

1 个答案: