Manage Learn to apply best practices and optimize your operations.

Force a new parent for a a response

This tip describes how to force documents to be children of a document.

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, True)
    Set docChange = docs.GetNextDocument(docChange)
   Call workspace.Viewrefresh()
   Exit Sub
  End If
 End If
End Sub

Dig Deeper on Lotus Notes Domino Administration Tools



  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/ community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury