将 word 文档的内容作为电子邮件正文发送时保留文本格式，

Question

我正在尝试将 word 文档的内容作为 Outlook 电子邮件的正文发送，但文本格式（粗体、颜色等）在插入电子邮件后会丢失。

我也尝试使用word文档作为信封项，它确实保留了原始格式，但.Display方法在这种情况下不起作用。

下面是我的代码

     bodi = wdDoc3.Content

     With wdApp.ActiveDocument

    .SaveAs ThisWorkbook.Path & "./Past email/Email generated on" & "-" & Format(Date, "dd mmmm yyyy") & ".doc"
    .Close

    End With

 Set Mail_Object = CreateObject("Outlook.Application")
 Set Mail_Single = Mail_Object.CreateItem(0)


With Mail_Single

 .Display

 End With

 signature = Mail_Single.body

 With Mail_Single
 .To = arr2(2, 1)
 .Subject = arr2(1, 1)
 .CC = arr2(3, 1)
 .Bcc = arr2(4, 1)
 .body = bodi & vbNewLine & signature

下面是我在网上找到的使用envelop方法的代码，但是.display或.visible方法不会让outlook窗口弹出。它只是直接发送电子邮件，这不是我想要的。

set itm=wddoc3.mailenvelope.item
with itm
.to=""
.subject=""
.display

此处的 .display 不起作用

end with

我该如何解决这个问题，或者是否有其他方法可以保留文本格式？

Answer 1

MailItem 类的Body 属性返回或设置一个字符串，该字符串表示 Outlook 项目的明文正文。要保留任何格式，您需要使用 HTMLBody 或 Word 编辑器。

Outlook 对象模型为工作项正文提供了三种主要方式：

1. Body - 表示 Outlook 项目的明文正文的字符串。
2. HTMLBody - 表示指定项的 HTML 正文的字符串。
3. Word editor - 正在显示的消息的 Microsoft Word 文档对象模型。 Inspector 类的 WordEditor 属性从 Word 对象模型返回 Document 类的一个实例，您可以使用它来设置消息正文。

您可以在Chapter 17: Working with Item Bodies 中阅读有关所有这些方式的更多信息。

因此，您可以轻松使用 Word 编辑器设置邮件正文，而不会丢失任何格式。