ビューに表示されている順番で選択文書を取得

ビューで選択した文書をビューのソート順を保って取得するコード

• 実処理は省略

ビューのアクションボタン等に作成します。

GetDocument

    Dim ws As New NotesUIWorkspace
    Dim vec As NotesViewEntryCollection
    Dim ve As NotesViewEntry
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument

    Set dc = ws.CurrentView.Documents   ' 選択文書を取得
    Set vec =  ws.CurrentView.View.AllEntries   ' ビューの全エントリを取得  

    ' ビューの先頭から末尾までビューの表示順に順次取得
    Set ve = vec.GetFirstEntry
    Do Until ve Is Nothing
        ' 取得したデータが選択文書のリストに含まれるか判定し、含まれる場合のみ処理を行う
        Set doc = dc.GetDocument(ve.Document)
        If Not doc Is Nothing Then
            ' ここに処理を記述
        End If

        Set ve = vec.GetNextEntry(ve)
    Loop