Dim qd As DAO.QueryDef
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = Currentdb
Set qd = db.QueryDefs("YourQuery")
Set rs = qd.OpenRecordset(dbOpendynaset)
Set qd = Nothing
With rs
If Not (.BOF and .EOF)
.MoveFirst
End If
Do Until .EOF
docmd.SendObject ObjectType:=acSendQuery,ObjectName:="YourQuery",OutputFormat:=acFormatXLX,To:=rs("emailField"),Subject:="yourSubject",MessageText:="the message"
.MoveNext
Loop
.Close
End With
Set rs = Nothing
Set db =Nothing