たびたびすいません。 MATSUさんからいただいた下のスクリプトは実行できたました (すいません、1日勉強しました) Dim session As New NotesSession,db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument,reply As NotesDocument Set db = session.CurrentDatabase Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument While Not(doc Is Nothing) Set reply = New NotesDocument(db) Call reply.MakeResponse(doc) Call reply.Save(True,True) Set doc = dc.GetNextDocument(doc) Wend しかし、あらかじめ”返答文書”というフォーム(親文書から値を引き継ぐ設定にしてあります)を作っておき、その上でビュー上の文書を複数選択し、アクションボタンを押すことによって選択した文書に”返答文書”フォームを元に返答文書を作成したいのですが・・・。 みなさんいいアドバイスはありませんでしょうか?