LOTUSSCRIPT /COM/OLE のクラス
例:NotesReplication クラス
1 次のスクリプトは、文書が最後に複製に含まれた日付 (CutOffDate) と、文書が自動的に削除されるまでの日数 (CutOffInterval) を表示し、その日数を 30 日に変更します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
Messagebox rep.CutOffDate
Messagebox rep.CutOffInterval
If rep.CutOffInterval <> 30 Then
rep.CutOffInterval = 30
End If
Call rep.Save()
2 次のスクリプトは、CutOffInterval プロパティが 30 日であれば、[複製の設定] ダイアログボックスの [指定日数間に変更がない文書を削除する。指定日数:] オプションの選択を解除します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
If rep.CutOffInterval = 30 Then
rep.CutOffDelete = False
End If
Call rep.Save()
関連項目
NotesReplication クラス
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集