Email question

I am using the below code to send a email. I currently change the
default of the email to HTML and copy and paste the content of the
subform in the body of the email. Is it possible to have the content of
the subform automatically entered into the body of the email? Also,
how can I have the email open in HTML format so that the data in the
email is formated as in the subform.
Thanks

Private Sub cmdmail_Click()
On Error GoTo Err_cmdmail_Click

Dim stDocName As String

stDocName = "MasterData"

DoCmd.SendObject acSendNoObject, stDocName, acFormatHTML, ([CUID]),
, , ([feature code] & " " & _
"Item not billing. " & _
"Customer: " & [Customer Name] & " " & _
" " & "Acct: " & [customer Acct]) & " " & _
[currentmonth], _
FirstName & "," & Chr$(10) & _
"In conducting our monthly audit, we have the following list of
items that are not billing." & _
" If you would review the list and let us know what action should
be taken to get this issue corrected" & _
"Thank You," & Chr$(10) & Chr$(10) & _
"Auditing Team" & Chr$(10) & Chr$(10) _
, , False


Exit_cmdmail_Click:
Exit Sub

Err_cmdmail_Click:
MsgBox Err.Description
Resume Exit_cmdmail_Click

End Sub