例: Created property (NotesDatabase - LotusScript)

  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