例: GetEntry method (NotesViewEntryCollection - LotusScript®)

次のスクリプトは、[By Category] ビューの「Household Appliances」カテゴリの 2 番目のエントリを取得し、そのエントリを [Sale Items] フォルダに入れます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entryOne As NotesViewEntry
Dim entryTwo As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set vc = view.GetAllEntriesByKey("Household Appliances")
Set entryOne = vc.GetNthEntry(2)
Set entryTwo = vc.GetEntry(entryOne)
Set doc = entryTwo.Document
Call doc.PutInFolder("Sale Items"))