次のコードを使用して、ドキュメントを閉じるときに特定のビューに戻り、新しく作成されたドキュメントを選択するようにします。
Dim ws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Set uidb = ws.CurrentDatabase
Call uidb.OpenView("vwMyView", , False)
ws.CurrentView.SelectDocument(Source.Document)
ビューがすでに開いている場合、このコードは上記で定義されたビューに移動し、ドキュメントを選択します。したがって、ビューが開いていない場合は、ビューが開き、ドキュメントが選択されます。これは、新しいドキュメントが作成され、ビューインデックスがまだ更新されていない場合に役立ちます。
このコードはうまく機能しますが、ホームページ([ホーム]タブ)にも設定されているフレームセットの一部としてビューがある場合、このコードを機能させるにはどうすればよいですか。
編集:
問題をさらに説明するために、複数のデータベースにリンクするフレームセットがあります。ユーザーがアウトラインコントロールをクリックしてリンクを開くと、フレームセット内のビューが開きます。次に、このビューから新しいドキュメント(アウトラインがある場所と比較して別のデータベースに属する)が作成されると、このフレームセットの外側に新しいウィンドウが開きます。このドキュメントを閉じるときに、フレームセット(このドキュメントと比較して別のデータベースにあります)に戻り、ビューを更新して、ビュー内の現在の新しいドキュメントを選択します。このフレームセットは、私の場合はホームページです。