LOTUSSCRIPT/COM/OLE CLASSES

Examples: Document Property
This form action script places the current document and its immediate responses into the Interesting folder. It uses the PutInFolder method in NotesDocument to place each document in the folder.

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