ok, slight problem...
DoCmd.CopyObject , stdocname, acReport, origdocname
DoCmd.SendObject acReport, stdocname, "Rich Text Format (*.rtf)", to_list, cc_list, , subject, msgText
DoCmd.DeleteObject acReport, stdocname
this copies the report, changes report...