email report (1 Viewer)
- Thread starter Gismo
- Start date
Ranman256
Well-known member
- Local time
- Yesterday, 21:26
- Joined
- Apr 9, 2015
- Messages
- 4,337
make a query to pull only the names of the ticked emails.
on the form, put a listbox, (lstBox),bound to this query. The list shows the emails from the query to send to.
now click a Send button that cycles thru the list ,sending the report.
you could also add a combo box to select which report to send them.
on the form, put a listbox, (lstBox),bound to this query. The list shows the emails from the query to send to.
now click a Send button that cycles thru the list ,sending the report.
Code:
'send the emails
sub btnSend_click()
dim vTo, vSubj, vBody
dim i as integer
for i = 0 to lstBox.listcount -1
vTo = lstBox.itemdata(i) 'get next item in listbox
lstBox = vTo 'set the listbox to this item
'get rest of info from form
vSub = txtSubj
vBody = txtBody
docmd.SendObject acSendReport ,txtReport,acFormatPDF,vTo,,,vSubj,vBody
next
end subyou could also add a combo box to select which report to send them.
