Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Set db = s.CurrentDatabase Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument Do While Not(doc Is Nothing) doc.Status = "Closed" Call doc.Save(False, True) Set doc = dc.GetNextDocument(doc) Loop Print "<B>All Status fields set to 'Closed'</b>"End Sub