Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 Call uidoc.FieldAppendText _
 ( "Body", "Over here, balloon man!")
End Sub

Sub Querysave(Source As Notesuidocument, Continue As Variant)
 Dim session As New NotesSession
 Call source.FieldAppendText( "Log", Cstr( Date ) )
 Call source.FieldAppendText( "Log", " " )
 Call source.FieldAppendText _
 ( "Log", session.CommonUserName )
 Call source.FieldAppendText( "Log", " " )
 Call source.FieldAppendText _
 ( "Log", source.FieldGetText( "Event" ) )
 Call source.FieldClear( "Event" )
End Sub

3. 次のボタンスクリプトは文字列リストに新しい値を付加します。スクリプトは最初にユーザーに文字列の値を入力するように求めます。[choices] フィールドが空のとき、このフィールドに新しい文字列を追加します。[choices] フィールドに既存の値があるときは、その後ろに複数の値を区切るためのセミコロンを置き、続けて新しい文字列を追加します。

Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Dim currentChoices As String
 Dim newChoice As String
 Set uidoc = workspace.CurrentDocument
 currentChoices = uidoc.FieldGetText( "choices" )
 newChoice = Inputbox$( "Please enter a new choice:" )
 If ( currentChoices = "" ) Then
   Call uidoc.FieldSetText( "choices", newChoice )
 Else
   Call uidoc.FieldAppendText("choices", ";" & newChoice)
 End If
End Sub

FieldAppendText メソッド

用語集