Lotus Notes 文档到 PDF答案

【问题标题】：Lotus Notes document to PDFLotus Notes 文档到 PDF
【发布时间】：2013-05-07 19:39:36
【问题描述】：

我需要一些帮助，因为我不知道从哪里开始。理想情况下，我希望有一个按钮可以将我的 Lotus Notes 文档转换为 PDF 文件，然后它将打开一封新电子邮件，然后将该文档中的电子邮件地址放入“收件人”文件中。此时我们使用CutePDF writer 来创建PDF 文件。我将这个过程分解如下：

打印文档
用户选择CutePDFwriter
保存 pdf 文件
使用位于“收件人”字段中的 Notes 文档中的电子邮件地址撰写新电子邮件

谁能帮我开始做这个？

【问题讨论】：

如果您访问 www.openNTF.org 网站并搜索“PDF”，您会发现几个处理从 Notes 数据创建 PDF 文件的开源项目。 “PDF IT”项目处理从视图创建 PDF 文件。 “SimplePDF”项目处理来自文档的数据。
如果您找不到任何其他可行的方法，您可以编写一个 Java 代理，使用其中一个 Java PDF 库（例如 iText）来创建 PDF 文件。

标签： lotus-notes lotusscript

【解决方案1】：

如果您愿意让用户选择cutepdf 作为打印机，您应该能够在文档或包含文档的视图中的按钮中使用@Commands（查看注释设计器帮助） .

我能看到的唯一问题是用户将能够更改 cutepdf 打印到的路径，因此您必须让用户再次找到附件（但您将能够自动显示附件对话框)。

【讨论】：

我正在尝试使用此代码，但它不会打开我的邮件文件并显示一个新的电子邮件窗口： Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.Print Dim db As New NotesDatabase("", "") Call db.OpenMail Dim doc As NotesDocument Set doc = db.CreateDocument

【解决方案2】：

从 Domino Designer 帮助文件中得到了我的答案。使用下面的代码打开邮件文件

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument

Dim doc As NotesDocument
Dim item As NotesItem
Set doc = uidoc.Document
Set item = doc.GetFirstItem("QSContactEMail")

Set uidoc = workspace.ComposeDocument _
(mailserver$, mailfile$, "Memo")
Call uidoc.FieldAppendText("EnterSendTo", "Test")

对于打印我只是调用打印函数并让用户选择CutePDF writer

【讨论】：