Dim session As New NotesSession
Dim db As NotesDatabase
Dim modifyDate As Variant
Set db = session.CurrentDatabase
modifyDate = db.LastModified
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