Force a new parent for a a response

If need to force response documents to be children of a document, as in my case, someone deleted the original parent and a new parent was created, use this agent. It allows you to select as many documents as you need, prompt/warns you about what you are about to do (allowing cancel), then lets you select the new parent from a view.

Sub Initialize
 
 Dim s As New NotesSession
 Dim workspace As New NotesUIWorkspace
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim docChange As NotesDocument
 Dim docs As NotesDocumentCollection
 Dim dcNewParent As NotesDocumentCollection
 Dim docNewParent As NotesDocument
 Dim answer As Integer
 Dim  strDocType As String
 Set db = s.CurrentDatabase
 Set docs = db.UnProcessedDocuments
 
 ' prompt to confirm that they want to change the selected documents' parent document
 answer = Messagebox("You are about to change the hierarchy for the selected documents.  Are you sure you want to continue?", 4 + 32, "Change Manager?")
 If answer = 6 Then
  ' prompt for the user to select the new parent from the view "byNominee"

  Set dcNewParent = workspace.PickListCollection(1, False, db.Server , db.Filename , "byNominee","New Parent", "Please choose a new parent document.")
  
  If Not dcNewParent.Count = 0 Then
   
   Set docNewParent = dcNewParent.GetFirstDocument
   Set docChange = docs.GetFirstDocument
   
   While Not docChange Is Nothing
    Call docChange.MakeResponse( docNewParent )
    
    Call docChange.save(True, True)
    Set docChange = docs.GetNextDocument(docChange)
   Wend
   Call workspace.Viewrefresh()
  Else
   Exit Sub
  End If
 End If
End Sub