例: Import method (NotesUIDocument - LotusScript®)

次のフォームアクションは、現在の UI 文書の [本文] フィールドにファイルを呼び出します。ファイルとファイルの種類を選択します。

Sub Click(Source As Button)   
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.GotoField("Body")
  Call uidoc.Import
End Sub

次のフォームアクションは、現在の UI 文書の [本文] フィールドに BMP ファイルを呼び出します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.GotoField("Body")
  Call uidoc.Import("BMP Image", "c:¥Windows¥Red Blocks.bmp")
End Sub