2012-02-29 155 views
1

我需要一些帮助,因为我不知道从哪里开始。理想情况下,我想要一个可以将我的Lotus Notes文档转换为PDF文件的按钮,然后它会打开一封新邮件,然后将该文档中的电子邮件地址发送到“To”字段。此时我们使用CutePDF编写器创建PDF文件。我打破的过程中像下面这样:Lotus Notes文档为PDF

  1. 打印文档
  2. 用户选择CutePDFwriter
  3. 保存PDF文件
  4. 撰写与上放置Notes文档的电子邮件地址的新电子邮件在'到'字段

任何人都可以帮我开始呢?

+2

如果你去www.openNTF.org网站和搜索“ PDF“,您可以找到几个处理从Notes数据创建PDF文件的开源项目。 “PDF IT”项目处理从视图创建PDF文件。 “SimplePDF”项目处理来自文档的数据。 – 2012-02-29 19:53:32

+0

如果找不到任何可行的其他方法,可以编写一个使用Java PDF库(例如iText)创建PDF文件的Java代理。 – awmross 2012-03-01 04:15:13

回答

0

从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作家

0

如果您很乐意让用户选择cutepdf作为打印机,那么您应该能够在文档或包含文档的视图的按钮中使用@Commands(请查看笔记设计器帮助)。

我可以看到的唯一问题是用户将能够更改cutepdf打印到的路径,因此您必须让用户再次找到附件(但是您将能够自动化附件对话框向上)。

+0

我想使用此代码,但它不会打开我的邮件文件并显示新的电子邮件窗口: 昏暗的工作区作为新NotesUIWorkspace 昏暗uidoc作为NotesUIDocument 设置uidoc = workspace.CurrentDocument 呼叫uidoc.Print 昏暗的分贝作为新的NotesDatabase(“”,“”) 调用db.OpenMail \t Dim doc As NotesDocument Set doc = db.CreateDocument – 2012-03-09 13:16:02