いつも大変お世話になり助かっています。 また行き詰まってしまったことがでてしまったのでどなたかご助言いただけないでしょうか？ 早速ですが、標題の通り下記のようなエージェントを作成しました。 内容は、あるビューの文書すべてを別のＤＢコピーし コピーした文書を全て削除しています。（つまりは別ＤＢへ文書の移動をしています。） これを手動で行うとうまく動くのですが、一日にxx:xxというスケジュールにして実行するとうまく動きません。 どなたかご助言いただけないでしょうか？ よろしくお願いいたします。 Dim session As New NotesSession Dim db As NotesDatabase Dim mdb As NotesDatabase Dim View As NotesView Dim doc As NotesDocument Set db = session.CurrentDatabase Set mdb = session.GetDatabase( "NTKYA01", "WelcomeDeta.nsf") Set View = db.GetView("History") Set doc = View.GetFirstDocument '来客履歴一覧ビューの文書を過去データDBへコピーします Do While Not (doc Is Nothing) Call doc.CopyToDatabase(mdb) Set doc = View.GetNextDocument(doc) Loop 'コピーした文書を削除します。 Set doc = view.GetFirstDocument() Do While Not(doc Is Nothing) Call doc.Remove(True) Set doc = view.GetFirstDocument() Loop