In a form , have a list box with all those to email. Person, email.
A combo box to pick the query. The one to email. This query will look at the person in the email listbox and pull his/her data.
Select * from table where person= forms!frmEmail!lstEmails
now a button to scan the list and send each person THEIR data....
Code:
sub btnSend_click()
for I = 0 to lstEmails.listCount-1
SName= lstEmails.item(I)
LstEmails = sName
STo = lstEmails.column(1) ' get the email address from list box
Docmd.sendObject acQuery, cboQry, ,,,,...sTo, .... 'Send email here using the query in cboBox
Next
end sub