例: LastModified property (NotesDatabase - LotusScript®)

  1. 次のスクリプトは現在のデータベースが最後に更新された日時を取得します。LastModified プロパティは 10/30/95 1:35:44 PM のように返します。
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim modifyDate As Variant
    Set db = session.CurrentDatabase
    modifyDate = db.LastModified
  2. 次のスクリプトは、project.nsf データベースが過去 30 日間更新されていない場合に、データベース管理者にメールを送信します。
    Dim db As New NotesDatabase( "", "projects.nsf" )
    Dim doc As NotesDocument
    If ( ( Today - db.LastModified ) > 30 ) Then
      Set doc = New NotesDocument( db )
      doc.Form = "Memo"
      doc.Subject = "Your database: " & db.Title
      doc.Body =  _
      "...hasn't changed in 30 days."
      Call doc.Send( False, db.Managers )
    End If