从富文本字段创建电子邮件附件

Question

我想从 Lotus Notes Rich Text 字段获取内容并将其放入电子邮件附件中并发送出去。不想进入电子邮件正文，因为它太多了。只想当个附件。

如何在 Lotus Notes 脚本中做到这一点？

Answer 1

不幸的是，目前您无法使用 LotusScript 轻松地做到这一点。从技术上讲，这将是创建 EML 文件并将其附加到电子邮件正文或将其打印为 PDF，然后将 PDF 附加到电子邮件。尽管这两个功能在较新的 Notes 客户端中都可用，但它们都没有“公开”到 LotusScript。

但是：之前有人这样做过，并且有代码可以使用 LotusScript 将邮件转换为 EML 文件。

您可以从“Yuriy Pastovenskyy”从此链接下载示例数据库 或者您可以尝试这里的 github 代码。

我没有测试这两种解决方案，因此您需要自己找出哪一种更符合您的需求。

然后你会做这样的事情：

Dim ses as New NotesSession
Dim db as NotesDatabase
Dim docSource as NotesDocument
Dim docMemo as NotesDocument
Dim body as NotesRichtextItem
Dim emlPath as String

Set db = ses.CurrentDatabase
Set docSource = ....'somehow get the document that you want to export

emlPath = GetEmlFromDoc( docSource ) '- use Code from the links to export the docSource
Set docMemo = New NotesDocument( db )
Call docMemo.ReplaceitemValue( "Form" , "Memo" )
Set body = New NotesRichtextItem( docMemo, "Body" )
Call body.EmbedObject( EMBED_ATTACHMENT, "", empPath )
'- show the document for editing or send the mail here...

我知道，这主要是一个“仅链接”的答案，但代码太复杂，无法从此处发布其中一个链接的摘录。