例: IsUIDocOpen property

次の例のユーザーサブルーチンは、渡された NotesDocument オブジェクトを調べて、オブジェクトがフロントエンド文書に基づいていればメッセージを出力して終了します。

Sub UpdateSubject(doc As NotesDocument)
  If doc.IsUIDocOpen Then
    Messagebox _
    "Can't do Subject update from front-end",, _
    "No can do"
    Exit Sub
  End If
  Call doc.ReplaceItemValue _
  ("Subject", doc.Subject(0) & "0")
  Call doc.Save(True, False)
End Sub