DoCmd.SendObject Help

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