Make a form, in it is a list box of the names, id, emails. (Query)
the list box will be set to 3 columns.
put a button to send the emails.
clicking the button will scan the list,sets the listbox to that individual, (ID),
the report is bound to a query that uses only the person selected in the listbox,
(select * from table where ID= forms!frmMyForm!lstBox)
heres the code:
Code:
sub btnSend_click()
For I = 0 to lstBox.listcount-1
Itm= lstBox.itemData(I) 'Get next item in list
LstBox= itm 'Set listbox
VTo = lstBox.column(2) 'Get the email address from column
Docmd.sendObject acReport, "myReport".....
next
end sub