こんにちは。 紹介のあったURLはビューの表示順に出力するものではなさそうです。 選択した文書をビューの列項目の表示通りに値を出力するもののようです(多分^^;。 ビューで選択した文書をビューのソート順に処理する方法ですが、過去ログでも紹介したのですが、1つの方法として、選択文書が格納されている文書コレクションをビューの並び通りにソートする方法があります。 ※なお、私の発案ではなく外国のサイトで紹介されていた方法です ビューの文書数が多くなるほどソート処理に多少時間がかかりますので、許容範囲かどうか確認の上、採用されてはいかがでしょうか。 チョロさんのソースに追加すると以下のようになります。 Set dc = db.UnprocessedDocuments 'ここから追加------------------------------------------------------------------------------ Dim NVECol As NotesViewEntryCollection Dim NDColSorted As NotesDocumentCollection Dim NVEntry As NotesViewEntry Dim NDoc As NotesDocument Set NVECol = view.AllEntries 'すべてのビューエントリ取得(ビューの表示順通りに格納される) '---ソート結果用に空の文書コレクションを作成する Set NDColSorted = view.GetAllDocumentsByKey("zzxxzz") 'キーは存在しない文字列ならなんでもOK '---ビューエントリの順にチェックし、一致する文書をソート対象の文書コレクションから取得 '---それをソート結果文書コレクションへ追加する。 Set NVEntry = NVECol.GetFirstEntry While Not NVEntry Is Nothing Set NDoc = dc.GetDocument( NVEntry.Document ) If Not NDoc Is Nothing Then Call NDColSorted.AddDocument( NDoc ) End If Set NVEntry = NVECol.GetNextEntry( NVEntry ) Wend Set dc = NDColSorted 'ここまで追加------------------------------------------------------------------------------ Set doc = dc.GetFirstDocument()