例: ModifiedSinceSaved property

このスクリプトは、保存されていない変更が含まれている場合には文書を保存してから、文書を閉じます。

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.CurrentDocument
	If uidoc.ModifiedSinceSaved Then
		Call uidoc.Save
	End If
	Call uidoc.Close
End Sub