例: ComposeDocument method

1. 次のビューアクションスクリプトは、現在のデータベースに「Main Topic」文書を新規作成します。

   Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Call workspace.ComposeDocument( "", "", "Main Topic" )
   End Sub

2. 次のビューアクションスクリプトは現在のデータベースに「Main Topic」文書を新規作成して、挿入点を [ProjectDescription] フィールドに移動します。

   Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.ComposeDocument _
     ( "", "", "Main Topic" )
     Call uidoc.GoToField( "ProjectDescription" )
   End Sub

3. 次のフォームアクションスクリプトは、現在の文書の [Topic] フィールドの内容をクリップボードにコピーします。次に、サーバー Rio の HERE.NSF に「Memo」文書を新規作成します (uidoc オブジェクトの値を変更します)。最後にクリップボードの内容を新規文書の [Subject] フィールドに貼り付けます。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.GotoField( "Topic" )
  Call uidoc.SelectAll
  Call uidoc.Copy
  Set uidoc = workspace.ComposeDocument _
  ( "Rio", "here.nsf", "Memo" )
  Call uidoc.GotoField( "Subject" )
  Call uidoc.Paste
End Sub