You can build code on a recordset based on the Query

Something like

Public Sub EmailQuery()
 Dim Db As DAO.Database
 Dim Qdef As DAO.QueryDef
 Dim Rs As DAO.Recordset
 Dim ToList As Variant

 ToList = Null
 Set Db = Access.CurrentDB
 Set Qdef = Db.QueryDefs("MyQuery")
 Set Rs = Qdef.OpenRecordset(DAO.dbOpenSnapshot)

 While Not Rs.EOF
    ToList = (ToList + ",") & Rs.Fields("EMail").Value
    Rs.MoveNext
  Wend
   Rs.Close : Set Rs = Nothing
   Set QDef = Nothing
   Set Db = Nothing
   Access.DoCmd.SendObject bcc:=ToList, Subject:="The Specials",
MessageText:="A Message for you Rudi"

End Sub

HTH

Pieter