Examples: FieldGetText method

  1. This script puts the string "02:32 PM Today" into the variable composed, if the DateComposed field holds the date-time value 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
  2. This script uses FieldGetText to send a mail memo to the author of a document. It assumes that the author is stored in the From field. For example, if the current document author is Stephanie Mavis and its subject is "Suit and tie," this script sends a memo to Stephanie Mavis with the subject "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