Lotus Domino Designer 7 ヘルプ - 例: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 次のスクリプトはログの保存先にする 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 データベースに作成されます。このデータベースにはログ名、現在の日時、エラーコード、エラーの説明が含まれます。

関連項目

用語集

用語集