Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Set db = session.Currentdatabase Set view = db.GetView("vwAll") Set doc = view.Getfirstdocument() Print doc.Created End Sub