Examples: Document Property (NotesUIDocument - LotusScript)

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 )
End Sub