LOTUSSCRIPT /COM/OLE のクラス
例:OverwriteFile プロパティ
1. 次のスクリプトはログの保存先の LOG.TXT ファイルを開きます。ファイルの既存の内容が削除されてから、アクションとエラーが記録されます。
Dim currentLog As New NotesLog( "Bump on a Log" )
currentLog.OverwriteFile = True
Call currentLog.OpenFileLog( "c:\log.txt" )
'...log some actions and errors...
Call currentLog.Close
2. エージェントが最後に実行されてから 1 週間を超えているとき、次のエージェントスクリプトは OverwriteFile プロパティを True に設定します。エージェントが最後に実行されてから 1 週間以内のとき、スクリプトは OverwriteFile プロパティを False に設定します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim currentLog As NotesLog
Set db = session.CurrentDatabase
Set agent = session.CurrentAgent
Set collection = db.UnprocessedDocuments
Set currentLog = New NotesLog( "Log for " & agent.Name )
If ( ( Today - agent.LastRun ) > 7 ) Then
currentLog.OverwriteFile = True
Else
currentLog.OverwriteFile = False
End If
Call currentLog.OpenFileLog( "c:\log.txt" )
Call currentLog.LogAction _
( collection.Count & " docs being processed.")
'....code to process each document...
Call currentLog.Close
End Sub
関連項目
OverwriteFile プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集