in the mCopyDesignElementsToDatabase procedure line 113:
ndoAgent.CopyToDatabase rndbTarget
change to
Set dstAgent = ndoAgent.CopyToDatabase(rndbTarget)<br/>
and add following code:
If Not dstAgent Is Nothing Then<br/>
Call dstAgent.ReplaceItemValue("$OnBehalfOf",rndbTarget.Server)<br/>
Call dstAgent.Save(True,False,True)<br/>
End If<br/>
You must declare dstAgent variable as NotesDocument of course
In addition in line 18 (same procedure) produced error "Type mismatch"
Help section of "Instr" sad: "If you specify compMethod, you must specify begin as well."
So, thees line must be
If Instr(1, ndoScriptLibrary.GetItemValue(mstrTitleItemName)(0), "SpamAssassin", 1) > 0 Then
instedad of
If Instr(ndoScriptLibrary.GetItemValue(mstrTitleItemName)(0), "SpamAssassin", 1) > 0 Then