Html 如何在通过VBScript将word文档附加到lotus notes邮件正文时保留格式？

我正在尝试自动化一个邮件系统，其中编辑的word文档将通过LotusNotes发送给许多人

我使用下面的代码来实现这一点。此代码工作正常，只是在作为邮件发送时丢失了所有格式（如粗体、斜体、段落等）

Set objRange = ob_doc.Content
mailtext = ob_word.CleanString(objRange.Text)

'Create the mail document
Set notesDocument = notesDatabase.CreateDocument
'set to memo format
notesDocument.Form = "Memo"
'Set the subject
notesDocument.Subject = subject
'Set the body
Set notesRichTextItem = notesDocument.CreateRichTextItem("Body")
notesRichTextItem.AppendText(mailtext)

---

。。。在做了一些研究之后，我尝试将word doc转换为html以保持格式完整，但我无法将该html文件作为邮件正文发送。

您需要使用Notes中的MimeEntity类以html格式发送电子邮件。有关更多信息，请参见此答案：

，或者您可以将Word文档作为附件发送。它没有那么优雅，但编码很简单。

如果您希望Word文档以与MS Word中相同的方式出现在Notes客户端（或任何其他电子邮件客户端）中，那您就是在自讨苦吃。最接近的解决方案是使用MS Word将文档保存为HTML（如您所述），然后使用Notes MIME类使用Word生成的HTML创建电子邮件（如Ken所述）。你将面临的最大问题是Word使用样式的方式。不同的电子邮件客户端对样式有不同的要求，Notes非常挑剔——例如，所有样式都必须是内联的（不是全局的或外部的），而Word不会这样做