• GetDocumentByKey メソッドはビューで「Blowfish」に一致する最初の文書を検索します。
• 一致する次の文書を見つけるために、スクリプトはビューの残りの文書をループを使って検索します。キーと一致する文書がある間ループは継続します。キーと一致するには、ビュー内のカテゴリ別にソートされている第 1 列の値が「Blowfish」と一致しなければなりません。

Sub Initialize
Dim db As New NotesDatabase( "", "ocean.nsf" )
Dim view As NotesView
Dim column As NotesViewColumn
Dim doc As NotesDocument
Dim done As Variant
Set view = db.GetView( "By Category" )
' get the first sorted and categorized column in the view
Forall c In view.Columns
If ( c.IsSorted And c.IsCategory ) Then
Set column = c
Exit Forall
End If
End Forall
' get the first document that matches the key
Set doc = view.GetDocumentByKey( "Blowfish" )
' get the remaining documents that match the key
' since ColumnValues array starts at 0 for position 1,
' subtract 1 from the column position
While ( doc.ColumnValues( column.Position - 1 ) _
= "Blowfish" )
Call doc.PutInFolder( "Fishy" )
Set doc = view.GetNextDocument( doc )
Wend
End Sub