Notes : 元の文書の値を引き継いで新しい文書を作成する

Pocket

元の文書の値を引き継いで、新しい文書を作成する。現在の文書にあるフィールド「field1」を、新しい文書の「field2」に引き継ぐ。
——————————————————————————————————————————–
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Set uidoc = workspace.CurrentDocument
Dim temp As Variant
temp=uidoc.FieldGetText(“field1”)
Set uinewdoc= workspace.composedocument(“”,””,”FormMain”)
Call uinewdoc.fieldsettext(“field2”,temp)
——————————————————————————————————————————–
composedocument の引数を正しく渡してあげれば、別DBのフォームを開いて指定のフィールドに値を引き継ぐことができる