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