Inviare e-mail con risultato query- Access -

[beppe09]

Buongiorno
avrei la necessità di inviare una mail senza allegato che come corpo abbia il risultato di una query.
Per quanto riguarda i destinatari sono sempre gli stessi.
Ho guardato alcune guide e diversi forum senza risultati decenti.
Purtroppo di VBA non ne so niente.
Qualcuno può aiutarmi dandomi due o tre indicazioni pratiche?

Saluti e grazie ancora

[beppe09]

Cercando un po sono riuscito almeno a creare l'email ma non so come fare ad integrare nel corpo i risultati della query sarà una banalità per chi se ne intende anche poco di vba .....
sotto ho riportato il codice.

grazie a tutti

Private Sub Comando32_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set db = CurrentDb
Set rst = db.OpenRecordset("Invia Mail per data")

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Le analisi effettuate oggi in data " & Date & " hanno dato i seguenti risultati:" _
& Chr(13) & " " & Chr(13) & _
"- 1°:" & Chr(13) & _ campo 1 query
"- 2°"& Chr(13) & _ campo 2 query
"-3°:" & Chr(13) & _ campo 3 query

" Saluti" & Chr(13) & _




On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""

.Subject = "Analisi " & Date
.body = strbody
.Display

End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub