DoCmd.SendObject acReport, "ReportName", "RichTextFormat(*.rtf)", _
"someone@somewhere.com", , , "Optional Subject", "Optional Text", True
'"ReportName" = Put your report name here.
'"someone@somewhere.com" = Email Address.
'"Optional Subject" = Optional text for subject line.
'"Optional Text" = Optional text for the body