LOTUSSCRIPT /COM/OLE のクラス

例:GotoFirst メソッドと GotoNext メソッド
次の Visual Basic コード (GotoFirstNext_Click Sub) は、ビューの最初から最後までのすべてのエントリを取得します。

Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim n As NotesViewNavigator
Dim e As NotesViewEntry
Dim lastPosition As String

Private Sub GotoFirstNext_Click()
InitializeNav_Click
lastPosition = ""
Call n.GotoFirst
Set e = n.GetCurrent
While e.GetPosition(".")<> lastPosition
If e.IsCategory Then
MsgBox e.ColumnValues(0), , "Category"
ElseIf e.IsDocument Then
MsgBox e.Document.GetItemValue("Subject")(0), , "Document"
End If
lastPosition = e.GetPosition(".")
Call n.GotoNext(e)
Set e = n.GetCurrent
Wend
End Sub

Private Sub InitializeNav_Click()
Set s = New NotesSession
s.Initialize
Set db = s.GetDatabase("", "Web test")
Set v = db.GetView("By Category")
Set n = v.CreateViewNav
End Sub

関連項目