LOTUSSCRIPT /COM/OLE のクラス

例:IsUIDocOpen プロパティ
次の例のユーザーサブルーチンは、渡された 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

関連項目