LOTUSSCRIPT /COM/OLE のクラス
例:NumErrors プロパティ
1. 次のスクリプトは記録されたエラー数を取得して変数 count に代入します。ここでは NumErrors は 3 を返します。
Dim currentLog As New NotesLog( "Database log" )
Dim count As Integer
Call currentLog.OpenNotesLog( "", "agentlog.nsf" )
Call currentLog.LogError( 1, "This is error number one" )
Call currentLog.LogError( 2, "This is error number two" )
Call currentLog.LogError _
( 3, "This is error number three" )
count = currentLog.NumErrors
2. 次のエージェントスクリプトはデータベースにアクションとエラーのログを記録します。そして、メールメモをエージェントの所有者に送信して、スクリプトが記録したエラー数を知らせます。たとえば、Susanna Tallan が Thread Agent を所有し、エージェントが記録するエラーが 2 つのとき、スクリプトは [Subject] に「Thread Agent logged 2 errors」を含むメールメモを Susanna に送信します。
Sub Initialize
Dim session As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Dim doc As NotesDocument
Set agent = session.CurrentAgent
Set db = session.CurrentDatabase
Dim currentLog As New NotesLog _
( "Log for " & agent.Name )
Call currentLog.OpenNotesLog( "", "agentlog.nsf" )
'...log some actions and errors...
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.Subject = agent.Name & " logged " & _
currentLog.NumErrors & " errors"
Call doc.Send( False, agent.Owner )
End Sub
関連項目
NumErrors プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集