Lisa,
You can loop through your query by opening it as a RecordSet. Here is some
sample code for you - however, before you try to run it, be sure that you
have set a Reference to the appropriate Outlook Object Library.
Dim g_db as Database
Dim g_rs as DAO.Recordset
Dim oApp As Outlook.Application
Dim objNewMail As Outlook.MailItem
Set oApp = New Outlook.Application
Set g_db = CurrentDb
Set g_rs = g_db.OpenRecordset("MyQueryName", dbOpenSnapshot)
g_rs.MoveLast
g_rs.MoveFirst
Do While Not g_rs.EOF
Set objNewMail = oApp.CreateItem(olMailItem)
With objNewMail
.To = g_rs!MyEmailAddress
.Subject = "Put your subject here"
.Body = "Put your message here"
.Save
.Send
End With
g_rs.MoveNext
Loop
MsgBox "Finished sending emails!"
Set oApp=Nothing
g_rs.close
set g_rs=Nothing
