E-mailing query and a snapshot view of report

[kastaman]

I would like to have the functionality of emailing a report in snapshot view and an HTML of my query in the same e-mail.
Could you please help me in creating the correct script if this is possible.

I'm attaching the script for sending my query in HTML format:
__________________________________________________________
Private Sub E_Mail_Request_Click()
On Error GoTo Err_Mail_Request_Click

Dim stDocName As String

DoCmd.SendObject acSendQuery, "New EIP Outbound Call Requests", acFormatHTML, "Shelley Friars;Maria Agius", "Vito Eusepio;John Aprieto", "", "New EIP Outbound Call Requests"

Exit_Mail_Request_Click:
Exit Sub

Err_Mail_Request_Click:
MsgBox Err.Description
Resume Exit_Mail_Request_Click

End Sub
____________________________________________________________

Thanks in advance,

Kastaman