here a sample how to send report, so if you make report of your query and
try this sub
Public Sub olSendRpt(strTo As String, strBody As String, strSubject As
String, strReport As String)
'To run it:
'olSendRpt "(e-mail address removed)", "Sending report", "subject", "Report1"
Dim strFileName As String, intFile As Integer, strLine As String,
strTemplate As String
strFileName = Environ("Temp") & "\rep_temp.txt"
If Len(Dir(strFileName)) > 0 Then
Kill strFileName
End If
DoCmd.OutputTo acOutputReport, strReport, acFormatTXT, strFileName
intFile = FreeFile
Open strFileName For Input As #intFile
Do While Not EOF(intFile)
Line Input #intFile, strLine
strTemplate = strTemplate & vbCrLf & strLine
Loop
Close #intFile
DoCmd.SendObject acSendNoObject, "", acFormatTXT, strTo, , , strSubject,
strTemplate
End Sub
HTH