DoCmd.SendObject Help

[Bgreer5050]

When I send the report below "OpenPOsQueryRe port" 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_C lick


Dim stDocName As String


stDocName = "OpenPOsQueryRe port"
DoCmd.SendObjec t acReport, stDocName, acFormatTXT, [Expr1], , , ,


Exit_Command14_ Click:
Exit Sub


Err_Command14_C lick:
MsgBox Err.Description
Resume Exit_Command14_ Click


End Sub