例: InsertText method

次のアクション用スクリプトは、アクションがクリックされるたびに現在のフィールドにユーザーの名前を挿入します。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.InsertText( session.CommonUserName )
End Sub

次のボタン用スクリプトは、ボタンがクリックされるたびに [FieldOne] にユーザーの名前を挿入します。フォーカスがボタンにあるため、現在のフィールドにボタンを使用して名前を挿入することはできません。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.GotoField( "FieldOne" )
  Call uidoc.InsertText( session.CommonUserName )
End Sub