Yeah, I've tried that command
DoCmd.SendObject acsendquery, "rpt_Incident", acformatRTF, "Darin Hanson"
I've also tried using code to open Outlook and create an outgoing message with the report as an attachment.
Dim olApp As New Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olMail As Outlook.MailItem
Dim strWhere As String
Set olNameSpace = olApp.GetNamespace("MAPI"

Set olMail = olApp.CreateItem(olMailItem)
FindX = Emailnumber
strFileName = "filename"
strWhere = "Emailnumber=" & FindX
DoCmd.OpenReport "rpt_Incident", acViewPreview, , strWhere
DoCmd.OutputTo acOutputReport, "rpt_Incident", acFormatRTF, strFileName, False
DoCmd.Close
pstrEmailName = InputBox("Please enter your email destination", "Email"
pstrccName = InputBox("Enter CC address", "CC"

pstrComment = InputBox("Enter comments for your email", "Comments"
With olMail
.To = pstrEmailName
.CC = pstrccName
.Subject = "Incident Report #" & Case__
.Body = pstrComment
.Attachments.Add strFileName
.ReadReceiptRequested = False
.Send
End With
Kill strFileName
Both of these ways work with a report that doesn't have subreports. What needs to be done differently to email a report WITH subreports?