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

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

• 実処理は省略

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

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