Java 在Lotusscript中，如何从按钮发送表单电子邮件并包含所有表单数据？

使用此代码：

Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Set db = session.CurrentDatabase
 Set doc = New NotesDocument( db )
 doc.Form = "hardware1"
 doc.SendTo = "email1"
 doc.Subject = "Here's the document you wanted"
 Call doc.Send( True )
End Sub

---

我收到了实际表单的电子邮件，但表单中没有包含任何数据。

在示例代码中，您使用表单“hardware1”创建了一个新文档，然后发送该空文档

如果代码位于表单中的按钮中，则可以使用NotesUiWorkspace获取“当前”文档：

Dim ws as New NotesUiWorkspace
Set doc = ws.CurrentDocument.Document
'- here comes your send code

注意：默认情况下，send-命令保存文档，除非将属性savemessageonsend设置为false

doc.savemessageonsend=false

此外，通过发送文档，文档可能会获得一些您不想要的附加字段。在这种情况下，请发送文件副本：

Dim docMemo as NotesDocument
Dim ws as New NotesUiWorkspace
Set docMemo = New NotesDocument( db )
Set doc = ws.CurrentDocument.Document
Call doc.CopyAllItems( docMemo )
docMemo.Subject = "email"
docMemo.SaveMessageOnSend = False
Call docMemo.Send( True )  

---

如果它被邮寄到某人的收件箱，它将使用那里的默认表单打开。这是你想要的还是你想用硬件表单打开它？你的评论是错误的。。。send命令中的

True

参数表示表单将包含在邮件中。。。只有共享代码和共享资源（图像）在目标数据库中不可见，其余的将与“发送”数据库中的一样。。。