I have this code that works perfectly except that in the Message/Body of the email it sends out each invoice to every employee, rather than just sending the invoices related to each employee.
Public Sub SendMail2()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim...