probier mal:
Set docSupport = New NotesDocument( dbSupport )
Call docCurrent.CopyAllItems( docSupport )
Damit sollten die ungespeicherten Items mitgenommen werden. Des weiteren kannst Du vor dem speichern (was CopyToDatabase sofort tut) Autoren- Rechte vergeben, denn sonst kann der User das Dokument nach dem Copy nicht mehr verändern.
Alternativ änderst Du das Subject halt im Ziel- Dokument erst...