yes it worked
ReportName = "rptReport"
DoCmd.OpenReport ReportName, acViewPreview, "", "[ID]=" & [ID], acNormal
DoCmd.SendObject acReport, ReportName, acFormatPDF, MailTo, MailCC, MailBcc, Subject, MailGreeting & MailMessage & MailSignature, True
however it has the...