ビューの文書を順番にすべて取得する（NotesView クラス/GetFirstDocument, GetNextDocument メソッド）

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim view As NotesView
	Set db = session.Currentdatabase
	Set view = db.GetView("vwAll")
	Set doc = view.GetFirstDocument
	While Not(doc Is Nothing)
		Print "製品名: " + doc.ProductName(0)
		Set doc = view.GetNextDocument(doc)
	Wend	
End Sub

Select XSnippet to copy to Clipboard