次のスクリプトはサーバー 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