LOTUSSCRIPT /COM/OLE のクラス

例:GetFirstDocument メソッド
次のスクリプトは、データベースの [Open\By Project & Priority] ビューの最初の文書を取得します。

Dim db As New NotesDatabase( "Gaborone", "todo.nsf" )
Dim view As NotesView
Dim doc As NotesDocument
Set view = db.GetView( "Open\By Project & Priority" )
Set doc = view.GetFirstDocument
If doc.HasItem("Subject") Then
 While Not(doc Is Nothing)
   Forall subject In doc.GetItemValue("Subject")
     Messagebox subject
   End Forall
   Set doc = view.GetNextDocument(doc)
 Wend
End If

関連項目