作成者カテゴリ 
公開
さる
02/16/2010 04:03 PM
エージェント
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
6.x6.xN/AN/AN/A

スケジュールエージェントが動かない!

いつも、わからなくなると参考にさせていただいてます。

こちらの過去レスも探っているのですが、
スケジュールエージェントについてご教授いただきたく書き込みしました。

エージェントを作成して、スケジュールとしたのですが
テストをしようと、時間を設定してみたところ、時間を過ぎても
実行してくれません。いや、実行はしてるのか?
デザイナーでエージェントを選択して
ログを見ると「実行しました」と書かれていますが、サーバーの
log.nsfをみると「操作を実行する権限がありません」でエラーになっています。(DBはサーバにあります)

処理は文書を別DBに移動した後、削除としています。
実行元DBも移動先DBも同じサーバにあります。

しかし、手動にすると正常に動作します。

こちらの過去レスをみて、サーバ名を""にしたり、試しましたが
「DBが開かれていません」のようなエラーがでてしまい
まったく動きません。

以下がスクリプトなのですが、何か他に原因があるのでしょうか?
Sub Initialize
Dim ss As New Notessession
Dim db As notesdatabase 'コピー元DB
Dim view As notesview
Dim doc As notesdocument
Dim copy As notesdatabase 'コピー先DB
Dim copyserver As String 'コピー先サーバ名

Set db = ss.Currentdatabase
Set view = db.Getview("ビュー名")
copyserver = "サーバー名"
Set copy = ss.Getdatabase(copyserver , "bb\\cb\\DB名.nsf") 'コピー先のパス
Set doc = view.GetFirstdocument
Do Until doc Is Nothing
Dim copydoc As New Notesdocument(copy)
Call doc. copyAllItems(copydoc,True)
Call copydoc. save(True,True)
Call doc.Remove(True)
Set doc=view.GetNthdocument(1) '削除のためにGetNthで次の最初の文書取得
Loop

End Sub

ご存知の方おられましたら、ご教授いただけませんでしょうか?
よろしくお願いします。


[Previous Main Document]
スケジュールエージェントが動かない! (さる) * 現在地 *
. . Re: スケジュールエージェントが動かない! (Vit)
. . . . Re:スケジュールエージェントが動かない! (さる)
[Next Main Document]