Hallo!
Ja, so funktionierts
anz = 0
Set items = doc.GetFirstItem( "Received" )
While Not items Is Nothing
anz = anz + 1
Set itemsn = items.CopyItemToDocument( doc, "Received#" & Cstr (anz))
Call items.Remove()
Set items = doc.GetFirstItem( "Received" )
Wend
Call doc.Save(True, True)
Danke!
Grüße
Markus