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

元の文書の値を引き継いで、新しい文書を作成する。現在の文書にあるフィールド「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のフォームを開いて指定のフィールドに値を引き継ぐことができる