LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim collection As NotesDocumentCollection Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set collection = doc.Responses Call doc.PutInFolder( "Interesting" ) Set doc = collection.GetFirstDocument While Not ( doc Is Nothing ) Call doc.PutInFolder( "Interesting" ) Set doc = collection.GetNextDocument( doc ) Wend End Sub
See Also