作成者	カテゴリ		公開
お茶 11/15/2007 11:27 AM	エージェント

DBに文書が登録されたら管理者にメール通知するエージェントを作成しました。しかし、エージェントが動く場合と動かない場合があり、原因がわかりません。。
＜スクリプト＞
Dim s As New NotesSession
Dim db As NotesDatabase
Dim mdb As NotesDatabase
Dim view As NotesView
Dim logview As NotesView
Dim doc As NotesDocument
Dim logdoc As NotesDocument
Dim mdoc As NotesDocument
Dim var As Variant

Set db = s.CurrentDatabase
Set logview = db.GetView("log")
Set logdoc = logview.GetFirstDocument

If Not(logdoc Is Nothing) Then
　var = Evaluate("@Contains(log ; ""err"")" ,logdoc)
　If var(0) = "1" Then
　　Set view = db.GetView("mail")
　　Set doc = view.GetFirstDocument
　　If Not(doc Is Nothing) Then
　　　Set mdoc = db.CreateDocument
　　　mdoc.Form = "Memo"
　　　mdoc.SendTo = doc.SendTo
　　　mdoc.CopyTo = doc.CopyTo
　　　mdoc.Subject = doc.Subject
　　　Call mdoc.ReplaceItemValue( "Body", doc.Body )
　　　Call mdoc.Send(False)
　　End If
　End If
End If



エージェントのトリガーに「文書が作成または更新後」を指定しています。

エージェントを保存後、最初の１回目は正常に実行されるのですが、
２回目以降が実行されず、エージェントログも出ません。

何か設定に漏れがあるのでしょうか。

ご存知の方いましたらぜひ教えて頂きたく。

よろしくお願い致します。