Hi Kathy,

Here be some "starting skeleton code"
(usually one wants to put the "list"
in the BCC)

'***** start of code ******************
Public Function SendMsg()
On Error GoTo Err_SendMsg
  Dim appOutlook As New Outlook.Application
  Dim itm As Outlook.MailItem

  'Create new mail msg
  Set itm = appOutlook.CreateItem(olMailItem)

  With itm
     '.To = "<youremailadressifyouwish>"
     .BCC = GetEMailAddresses("qryEMail", "EmailAddress")
     '.Subject = "A subject if you wish"
     '.Body = "Something in the body if you wish."
     'display msg before hitting Send
     .Display
  End With

Exit_SendMsg:
   Exit Function
Err_SendMsg:
   MsgBox Err.Description
   Resume Exit_SendMsg

End Function

Public Function GetEMailAddresses(pQueryName As String, _
                          pFieldName As String) As String
On Error GoTo Err_GetEMailAddress
   Dim rs As DAO.Recordset
   Dim varTemp As Variant

   varTemp = ""

   Set rs = CurrentDb.OpenRecordset(pQueryName)
   rs.MoveFirst
   Do While Not rs.EOF
       varTemp = varTemp & "<" & rs.Fields(pFieldName) & ">, "
       rs.MoveNext
   Loop
   'remove ending comma and space
   GetEMailAddresses = Left(varTemp, Len(varTemp) - 2)
   'Debug.Print varTemp
   rs.Close

Exit_GetEMailAddress:
   Set rs = Nothing
   Exit Function

Err_GetEMailAddress:
   MsgBox Err.Description
   Resume Exit_GetEMailAddress

End Function
.*** end of code ***************

There are several things *wrong* with above code...

It uses early binding, plus, it won't work if there
are several users on the same machine.

Ignoring binding for now, you will have to get
a namespace if multiple users (untested code):

Public Function SendMsg ()
On Error GoTo Err_SendMsg

   Dim appOutlook As Outlook.Application
   Dim NS As Outlook.NameSpace
   Dim itm As Outlook.MailItem

   Set appOutlook = CreateObject("Outlook.Application")
   '********************************
   Set NS = appOutlook.GetNamespace("MAPI")
   NS.GetDefaultFolder olFolderOutbox
   '**********************************
   Set itm = appOutlook.CreateItem(olMailItem)

     'itm.To = "<youremailadressifyouwish>"
     itm.BCC = GetEMailAddresses("qryEMail", "EmailAddress")
     'itm.Subject = "A subject if you wish"
     'itm.Body = "Something in the body if you wish."
     'display msg before hitting Send
     itm.Display

Exit_SendMsg:
   Set itm = Nothing
   Set NS = Nothing
   Set appOutlook = Nothing

   Exit Function
Err_SendMsg:
   MsgBox Err.Description
   Resume Exit_SendMsg
End Function

With this early binding, that means that every
computer you place this app on must have same
version of Outlook that you use in References
when you compile this code.

If that meets your situation, then I believe you
are mostly there (except maybe you want to add
some function parameters to SendMsg for main
"To" address, a "Subject" string, and a "Body"
string that you can feed to your function).

(again, untested code, w/o code to check
 for valid parameter strings):

Public Function SendMsg (pTo As Variant, _
                                        pSubject As Variant, _
                                        pBody As Variant, _
                                       pQueryName As String, _
                                       pFieldName As String) As Boolean
On Error GoTo Err_SendMsg

   Dim appOutlook As Outlook.Application
   Dim NS As Outlook.NameSpace
   Dim itm As Outlook.MailItem

   Set appOutlook = CreateObject("Outlook.Application")
   '********************************
   Set NS = appOutlook.GetNamespace("MAPI")
   NS.GetDefaultFolder olFolderOutbox
   '**********************************
   Set itm = appOutlook.CreateItem(olMailItem)

     itm.To = "<" & pTo & ">"
     itm.BCC = GetEMailAddresses(pQueryName, pFieldName)
     itm.Subject = pSubject & ""
     itm.Body = pBody & ""
     'display msg before hitting Send
     itm.Display

     'return that successful
     SendMsg = True

Exit_SendMsg:
   Set itm = Nothing
   Set NS = Nothing
   Set appOutlook = Nothing

   Exit Function
Err_SendMsg:
   MsgBox Err.Description
   Resume Exit_SendMsg
End Function

So...save the 2 functions in a new code module
(say "modEMail"),
click on Debug/Compile to make sure copy/paste
didn't mangle with wrapping,

then in Immediate Window, try testing
(hit <ENTER> after typing each line)

strQ = "nameofyourquery"
strF = "nameof fieldinquery"
strTo = someaddress@someip.net
strS = "this is the subject line"
strB = "this is body of email"
SendMsg strTo, strS, strB, strQ, strF

good luck,

gary