LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Set db = session.CurrentDatabase Set dc = db.FTSearch("Business reports",10) newField = Inputbox("NewField value?") Call dc.StampAll("Subject", newField) End Sub
See Also