By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Clicking on the response document opens its parent document in read mode and in edit mode it opens response document.
Sub Postopen(Source As Notesuidocument) Dim s As New notessession Dim ws As New NotesUIWorkspace Dim db As NotesDatabase Dim doc As notesdocument Dim docB As notesdocument Set db = s.CurrentDatabase Set doc = Source.Document Set docB = db.getDocumentByUNID(doc.ParentDocumentUNID) If Source.EditMode = False Then Call ws.EditDocument(False, docB, False) Call source.close End If End Sub