例: SaveNewVersion method

次のフォームアクションスクリプトは現在の文書への変更を保存します。変更内容は新規文書に保存され、新規文書は元の文書に対する返答文書か、親文書か、兄弟文書になります。どれになるのかはフォームのバージョンオプションに応じて決められます。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.SaveNewVersion
End Sub