Lotus Domino Designer 8.5 ヘルプ - 例:NotesLog クラス

LOTUSSCRIPT /COM/OLE のクラス

例:NotesLog クラス
1. 次のスクリプトは、ログの保存先にするメールメッセージを開き、そのメッセージを Jimmy Ho にメール送信します。

Sub Initialize Dim currentLog As New NotesLog( "Checkup Agent" ) Call currentLog.OpenMailLog( "Jimmy Ho", _ "Log for Checkup Agent" ) Call currentLog.Close End Sub

メールメッセージは Body アイテムに次の内容を含みます。

04/26/95 12:19:40 PMCheckup Agent starting

2. 次のスクリプトはログの保存先のメールメッセージを開きます。次に、現在のデータベースで見つかった各文書のアクションのログを記録し、メッセージをメールで送信します。

Sub Initialize Dim currentLog As New NotesLog( "Cleansing Agent" ) Call currentLog.OpenMailLog( "Jimmy Ho", _ "Log for Cleansing Agent" ) Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Set db = session.CurrentDatabase Set collection = db.AllDocuments Set doc = collection.GetFirstDocument count% = 0 While Not ( doc Is Nothing ) count% = count% + 1 Call currentLog.LogAction( "Processed document " + _ Cstr( count% ) ) Set doc = collection.GetNextDocument( doc ) Wend Call currentLog.Close End Sub

データベースに 4 つの文書があるとき、Jimmy Ho は Body アイテムに次の内容を含むメールメモを受信します。

04/26/95 10:50:17 AMCleansing Agent starting
04/26/95 10:50:17 AMProcessed document 1
04/26/95 10:50:17 AMProcessed document 2
04/26/95 10:50:17 AMProcessed document 3
04/26/95 10:50:17 AMProcessed document 4

3. 次のスクリプトはログの保存先にする Lotus Domino データベースを開きます。現在のデータベースで [All by Category] ビューが見つけられなかったときに、エラーを記録します。

Sub Initialize viewName$ = "All by Category" Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim agent As NotesAgent Dim currentLog As NotesLog Set db = session.CurrentDatabase Set agent = session.CurrentAgent Set currentLog = New NotesLog _ ( agent.Name + " Agent in " + _ db.Title + " on " + db.Server ) Call currentLog.OpenNotesLog( "", "agentlog.nsf" ) Set view = db.GetView( viewName$ ) If view Is Nothing Then Call currentLog.LogError _ ( 0, "Unable to find view " + viewName$ ) End If Call currentLog.Close End Sub

新規の文書が AGENTLOG.NSF データベースに作成されます。このデータベースにはログ名、現在の日時、エラーコード、エラーの説明が含まれます。

関連項目

NotesLog クラス

用語集

フィードバック ヘルプ または プロダクトユーザビリティ

ヘルプの使い方

すべてのヘルプ項目

用語集