By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
modified within the last week. This code can easily be modified.
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Dim dtLastWeek As New NotesDateTime("Today")
Set db = s.CurrentDatabase
Set coll = db.Search(|Form = "Server"|, dtLastWeek, 0)