いえいえ、ご丁寧に。 こちらこそ、すみません。 「VIEWのソート順」で選択文書を処理したかったのですね。 すでに解決されているようですが、 全くの興味本位で、フォルダを使った方法を考えてみました。 混乱させる気はないので、 余裕がある時にでも、気が向いたら見てみてくださいませ。 ------------------------------ 用意する設計: 選択文書ソート用のフォルダ作成(Viewと同じソート順に列をセット) 処理概要: 選択文書を用意したフォルダに追加し、 そのフォルダ内文書のDocumentCollectionで処理する。 問題点: @共有フォルダを利用した場合、複数ユーザで同時に機能を使うと、 タイミングによってはフォルダ内の文書が書き換えられるため、動作の保障ができない。 (※頻繁に同時使用せず、スクリプト処理に時間がかからなければ、 さほど問題にならないとは思うけれども。) A個人フォルダ(最初は共有)を利用した場合、複数ユーザによる同時アクセス時の 問題は回避できるが、設計の変更をした場合の対応を考慮しなければならない。 その他: ・レスポンス・・・全くわかりません。 ・少なくとも、わが環境ではソート順に取得できました! ---- 以下参考スクリプト -------------------------- Dim ws As New NotesUIworkspace Dim ses As New NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Set db = ses.CurrentDatabase Set dc = db.UnprocessedDocuments If dc.Count = 0 Then '選択文書はないです。 Exit Sub End If '@フォルダの中身をクリア Dim folder As NotesView Dim entryCol As notesViewEntryCollection Set folder = db.GetView("folderName") Set entryCol = folder.AllEntries Call entryCol.RemoveAllFromFolder("folderName") 'A選択文書を全てフォルダにいれる Call dc.PutAllInFolder("folderName") 'Bフォルダ更新。 ' この時点で、"folder"の中はソートされた選択文書になっています。 Call folder.Refresh '※以降の処理はNotesViewクラスの'folder'オブジェクトで処理します。 Dim doc As NotesDocument Set doc = folder.GetFirstDocument While (Not doc Is Nothing) 'いろいろ Set doc = folder.GetNextDocument(doc) Wend ------------------------------ 以上、ご参考まで。