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

関連項目