Send report as body

[bw2601]

Does anyone know how to send a report in the body of an email. this is the code i am using currently, but it will only send the report as an attachment.

Private Sub Mail_CallDescription_Click()
On Error GoTo Err_Mail_CallDescription_Click

If Me.Emailed = True Then
DoCmd.GoToControl "Call ID"
Me.Mail_CallDescription.Visible = False
Else
Me.Mail_CallDescription.Visible = True

Dim stDocName As String

stDocName = "Email_Ticket"
DoCmd.SendObject acReport, stDocName, , , Brandiew
DoCmd.GoToControl "Call ID"
Me.Emailed = True
Me.Mail_CallDescription.Visible = False

End If

Exit_Mail_CallDescription_Click:
Exit Sub

Err_Mail_CallDescription_Click:
MsgBox Err.Description
Resume Exit_Mail_CallDescription_Click

End Sub


any help someone can give me would be greately appreicated.