Outlook 在回复电子邮件中粘贴MSHTML.IHTMLElementCollection对象

“Original”是收件箱中的一封电子邮件，其中有一个表，最后一列未填写。 如何在“回复”中粘贴“oElColl”

---

---

'填充oElColl中最后一列的代码

要将HTML同步加载到HTMLDocument对象中，没有简单的100%万无一失的方法。我非常怀疑HTMLDocument.Body.innerHTML=Original.HTMLBody是否有效。您可以使用HTMLDocument.write，但它可以挂起一些HTML消息

尝试使用MailItem.GetInspector（）.WordEditor检索Word文档对象，并改用它

Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem

Set Original = Application.ActiveExplorer.Selection(1)

Set Reply = Original.ReplyAll
Reply.Subject = "RE: " & Original.Subject
Reply.Display 

Dim oHTML As MSHTML.HTMLDocument: Set oHTML = New MSHTML.HTMLDocument
Dim oElColl As MSHTML.IHTMLElementCollection
With oHTML
.Body.innerHTML = Original.HTMLBody
Set oElColl = .getElementsByTagName("table")
End With