Private Sub CmdEmail_Click()
DoCmd.SendObject acSendReport, "ReportNameHere", "FormatHere", messageto, , , "SubjectHere", [Body], True
End Sub
Grab the fieldname from your table by using surrounding square brackets. The syntax above should work as I've just tested it here.
Anymore problems...