LOTUSSCRIPT /COM/OLE のクラス
例:GetNext メソッド
1. 次のスクリプトは、ビューナビゲータ内の指定されたエントリの後ろの次のエントリを返します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entryA As NotesViewEntry
Dim entryB As NotesViewEntry
Dim nav As NotesViewNavigator
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set nav = view.CreateViewNavFromCategory("Sale items")
Set entryA = nav.GetNth(2)
Set entryB = nav.GetNext(entryA)
Set doc = entryB.Document
Call doc.PutInFolder("Midnight Madness")
2. 次のスクリプトは、ビューナビゲータのエントリを反復します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim nav As NotesViewNavigator
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set nav = view.CreateViewNavFromCategory("Sale items")
Set entry = nav.GetFirstDocument
While Not(entry Is Nothing)
Set doc = entry.Document
Call doc.PutInFolder("Midnight Madness")
Set entry = nav.GetNextDocument(entry)
Wend
関連項目
GetNext メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集