Question

我正在尝试创建一个新文档，其中一些字段值将来自当前文档。请注意，当前文档未处于编辑模式。

当前文档中有三个按钮：

修改文档

//Validate inputs
myForm = window.document.forms[0]
myForm.Refresh.click()
myForm.Edit.click()

添加访客

//Validate inputs
myForm = window.document.forms[0]
myForm.AddGuest.click()

关闭

myForm = window.document.forms[0]
myForm.Close.click()

点击添加访客按钮后，它必须能够访问可以在另一个隐藏按钮中找到的lotusscript代理，＆＃34; AddGuest＆＃34;。

@Command([ToolsRunMacro]; "AddGuests")

单击“添加访客”按钮后，必须有一个新表单，但必须保留一些字段值（名字，姓氏等），并且表单必须是可编辑的，这样我才能保存它作为新文件（不是回复）。任何人都可以帮助我使用代理代码来做到这一点吗？以下是我的代理人的代码。

Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim currentdoc As NotesDocument
Dim newdoc As NotesDocument
Dim workspace As NotesUIWorkspace

Set session = New NotesSession
Set workspace = New NotesUIWorkspace
Set db = session.CurrentDatabase
Set currentdoc = workspace.Currentdocument.document
Set newdoc = New NotesDocument(db)
Call newDoc.Replaceitemvalue("FirstName", "")

Call workspace.EditDocument(newdoc,True)
End Sub

尝试点击按钮时，没有任何事情发生。

Answer 1

你可以这样做：

获取当前文档

set currentDoc = workspace.CurrentDocument.Document

创建新文档

Set newDoc = new NotesDocument(db)
call newDoc.ReplaceItemValue("Form", "AddGuest")

将当前文档的值添加到新文档调用newDoc.Replaceitemvalue（“FirstName”，currentDoc.FirstName）调用newDoc.Replaceitemvalue（“LastName”，currentDoc.LastName）

以编辑模式显示新文档

call workspace.Editdocument(newDoc, True)

如何使用Javascript和Lotusscript

1 个答案: