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], , , ,
[ID] & [PONo]


Exit_Command14_Click:
Exit Sub


Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click


End Sub