LOTUSSCRIPT /COM/OLE のクラス
例:LastModified プロパティ
1 次のスクリプトは文書が最後に更新された日付を取得して、日付を文書の modifyDate アイテムに設定します。たとえば、LastModified は 10/31/95 10:42:31 AM のように返します。
Dim doc As NotesDocument
Dim modifyDate As Variant
'...set value of doc...
modifyDate = doc.LastModified
2 次のスクリプトは文書が最後に変更された日付を元にして、文書の PurgeDate アイテムの値を設定します。文書が 2 週間以上前に更新されたとき、スクリプトは PurgeDate に今日の日付を設定します。文書が 7 日前から 13 日前までの間に更新されたとき、スクリプトは PurgeDate を今日から 1 週間後の日付に設定します。
Dim doc As NotesDocument
Dim days As Integer
'...set value of doc...
days = Cint( Date - doc.LastModified )
If days > 14 Then
doc.PurgeDate = Date
Else
If days > 7 Then
doc.PurgeDate = Date + 7
End If
End If
Call doc.Save( True, True )
関連項目
LastModified プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集