LOTUSSCRIPT /COM/OLE のクラス
例:NumActions プロパティ
1. 次のスクリプトはログに記録されるアクションの数を取得して、変数 count に代入します。ここでは NumActions は 2 を返します。
Dim currentLog As New NotesLog( "Database log" )
Dim count As Integer
Call currentLog.OpenNotesLog( "", "agentlog.nsf" )
Call currentLog.LogAction( "This is action number one" )
Call currentLog.LogAction( "This is action number two" )
count = currentLog.NumActions
2. 次のエージェントスクリプトはデータベースにアクションとエラーのログを記録します。そして、メールメモをエージェントの所有者に送信して、スクリプトが記録したアクション数を知らせます。たとえば、Susanna Tallan が Thread Agent を所有し、エージェントが記録するアクションが 5 つのとき、スクリプトは [Subject] に「Thread Agent logged 5 actions」を含むメールメモを 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.NumActions & " actions"
Call doc.Send( False, agent.Owner )
End Sub
関連項目
NumActions プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集