LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目