Looping through email body to include all records in query in Access.

Hi all,

I have the following code that sends an email to all the email addresses generated by a query. I want it to include information in the email body and loop through each record and put the information of each in a new line in the email body. The code I have only puts one record in the email body instead of all the records. I also want it to send the email to the address only once if the email address appears more than once. IOW, if there are 10 records and only 2 different email addresses (4 records for the one email address and 6 for the other email address), it must only send out 2 emails with the respective records in each. Here is the code i have so far:

Please Login or Register  to view this content.

Thank you in advance.

you can send the query with a single line of code

DoCmd.SendObject acSendQuery, sQuery, acFormatXLS, sTo, , , sSubj, sMsg