Examples: PostModeChange event

This script appends text to the ProblemHistory field every time the user switches from Read to Edit mode in the current document.

Sub Postmodechange(Source As Notesuidocument)
  Dim dateTime As New NotesDateTime( "Today" )
  If source.EditMode Then
    Call source.FieldAppendText _
    ( "ProblemHistory", _
    "Problem edited on " & dateTime.LocalTime )
  End If    
End Sub