LOTUSSCRIPT /COM/OLE のクラス
例:Created プロパティ
1. 次のスクリプトは現在のデータベースが作成された日時を取得します。Created プロパティは、10/15/95 4:43:51 PM などの値を返します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim createDate As Variant
Set db = session.CurrentDatabase
createDate = db.Created
2. 次のスクリプトはサーバー Paris の各データベースが過去 5 日間に作成されたかどうかを調べます。過去 5 日間にデータベースが作成された場合、スクリプトはそのデータベースの管理者に対し、会社のデータベース保守規則を読み、それに従うように求めるメモを送信します。
Dim directory As New NotesDbDirectory( "Paris" )
Dim db As NotesDatabase
Set db = directory.GetFirstDatabase( DATABASE )
While Not ( db Is Nothing )
Call db.Open( "", "" )
If ( ( Today - db.Created ) <= 5 ) Then
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.Subject = "Your new database:" + db.Title
doc.Body =
"Please read rules for db maintenance."
Call doc.Send( False, db.Managers )
End If
Set db = directory.GetNextDatabase
Wend
関連項目
Created プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集