Copy method (NotesJSONObject - LotusScript)

Copy Object value to another Object.

Dim session As New NotesSession()
Dim jsnav As NotesJSONNavigator
Dim nestedObject As NotesJSONObject
Dim object As NotesJSONObject

Set jsnav = session.createJSONNavigator("")
Set object = jsnav.appendObject("myobject")
Set nestedObject = object.appendObject("nestedObject")
Call nestedObject.appendElement("value1", "prop1")
Call nestedObject.appendElement("value2", "prop2")
'Result: {"myobject":{"nestedObject":{"prop1":"value1","prop2":"value2"}}}

Dim jsnav1 As NotesJSONNavigator
Dim object1 As NotesJSONObject
Dim result1 As String
Set jsnav1 = session.createJSONNavigator("")
Set object1 = jsnav1.appendObject("myobject1")
Call object1.Copy(object)
'Result: {"myobject1":{"nestedObject":{"prop1":"value1","prop2":"value2"}}}