The difficult I do immediately, the impossible takes a little bit longer.
A way to send eMail to multiple recipients using DoCmd.SendObject and a little code...
Private Sub SendeMail()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM
Send eMail to Multiple Recipients...
I use this code behind each form because the same forms are used to filter specific reports to specific Users...
1. Copy and paste the below in the Forms Module...
2. Set up your Query (see Figure A) from your Table (mine is Figure C), changing the field names to match your own, and change the areas marked in blue to correspond to your fields and your report. (You can use the same query to create a form, see Figure B, and add or subtract the Users you want to receive the report.)
3. In the On_Click event of your Command Button (orange arrow) put...
SELECT tblUsers.ueMail FROM tblUsers INNER JOIN tbleMailRecipients ON tblUsers.uUserID = tbleMailRecipients.erUserID WHERE (((tbleMailRecipients.erReportID=5));
Note... Using DoCmd.SendObject does limit your vMsg to 255 characters. If you want to send more you will need to use Outlook Automation.