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

Question

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

我使用以下代码来执行此操作。此代码工作正常，但在作为邮件发送时会丢失所有格式（例如粗体、斜体、段落等）。

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)

。经过一些研究，我尝试将单词doc转换为html以保持格式完整，但是我无法将该html文件作为邮件正文邮寄。

Answer 1

您需要使用 Notes 中的 MimeEntity 类以 HTML 格式发送电子邮件。 有关详细信息，请参阅此SO答案： 从Excel VBA发送格式化的Lotus Notes富文本电子邮件

Answer 2

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

Answer 3

如果您希望

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