LOTUSSCRIPT /COM/OLE のクラス
例:OpenNotesLog メソッド
1. 次のスクリプトは現在のコンピュータの AGENTLOG.NSF を開きます。アクションやエラーが記録されるたびに、新しい文書が .AGENTLOG.NSF に作成されます。
Dim currentLog As New NotesLog( "Database log" )
Call currentLog.OpenNotesLog( "", "agentlog.nsf" )
'...log some actions and errors...
Call currentLog.Close
2. 次のスクリプトは現在のコンピュータの Domino データディレクトリを検索して、[StdR4AgentLog] テンプレートから設計を引き継ぐ最初のデータベースを見つけます。データベースが見つかると、スクリプトはログを記録するためにデータベースを開きます。
Dim currentLog As NotesLog
Dim directory As NotesDbDirectory
Dim db As NotesDatabase
Dim done As Variant
Set currentLog = New NotesLog( "Database log" )
Set directory = New NotesDbDirectory( "" )
Set db = directory.GetFirstDatabase( DATABASE )
done = False
While Not ( db Is Nothing ) And Not done
Call db.Open( "", "" )
If ( db.DesignTemplateName = "StdR4AgentLog" ) Then
done = True
Else
Set db = directory.GetNextDatabase
End If
Wend
Call currentLog.OpenNotesLog( db.Server, db.FilePath )
'...log some actions and errors
Call currentLog.Close
関連項目
OpenNotesLog メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集