例: FieldGetText method

次のスクリプトは、[DateComposed] フィールドに日付/時刻値「02:32 PM Today」があるとき、変数 composed に文字列「02:32 PM Today」を入力します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim composed As String
  Set uidoc = workspace.CurrentDocument
  composed = uidoc.FieldGetText( "DateComposed" )
End Sub

次のスクリプトは FieldGetText を使用してメールメモを文書の作成者に送ります。作成者が [From] フィールドに保存されていることを前提とします。例えば、現在の文書の作成者が Stephanie Mavis であり文書の件名が「Suit and tie」であるとき、次のスクリプトは Stephanie Mavis に「Re: Suit and tie」という件名のメモを送信します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set uidoc = workspace.CurrentDocument    
  Set doc = New NotesDocument( db )
  doc.Form = "Memo"
  doc.Subject = "Re: " + uidoc.FieldGetText( "Subject" )
  doc.Body = _
  "Please send me some more information on this topic."
  Call doc.Send( False, uidoc.FieldGetText( "From" ) )
End Sub