アプリケーションの設計
NotesLog を使用するには、次の LotusScript 例を参考にしてください。この例では、文書の件名を取得することにより、エージェントが処理する文書が追跡されます。情報はエージェントログに記録されます。
Dim agentLog As new NotesLog("Agent log")
Dim collection As NotesDocumentCollection
Dim db As NotesDatabase
Dim s As NotesSession
Dim count As Integer Call agentLog.OpenAgentLog Set s=New NotesSession Set db = s.CurrentDatabase Set collection = db.UnprocessedDocuments Set note = collection.GetFirstDocument count = collection.Count Do While (count >0) Subject = note.Subject Call agentLog.LogAction("Processing:"+Subject(0)) Set note = collection.GetNextDocument(note) count = count-1 Loop Call agentLog.Close
エージェントログの上限
エージェントログには、64 KB の情報しか保存できません。情報の書き込み量がこの上限を超えると、次のメッセージが表示されて、エージェントの実行は停止されます。
関連項目