スクリプトならこんな感じでしょうか #' 返答文書作成 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