DoCmd.SendObject Help

[Bgreer5050]

When I send the report below "OpenPOsQueryReport" it is sent as an
attachment. Is there a way to have it sent in the message body?

Thanks


Private Sub Report_Page()
On Error GoTo Err_Command14_Click


Dim stDocName As String


stDocName = "OpenPOsQueryReport"
DoCmd.SendObject acReport, stDocName, acFormatTXT, [Expr1], , , ,


Exit_Command14_Click:
Exit Sub


Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click


End Sub