Got it
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.CopyObject , "rptOrder" & [InputID], acReport, "rptOrder"
stDocName = "rptOrder" & [InputID]
DoCmd.SendObject acReport, stDocName, acFormatRTF, "sudspark@gmail.com", "", , "New JDA Order", "New JDA...