I have a function to create emails from my database, which works fine. The problem I'm running into is trying to insert data from a recordset into the HTML code as bullet points. Here is what I have so far:
This does work, to a point. It will insert the first record in rs1, but doesn't loop in order to grab the other records as well.
Code:
Set rs1 = CurrentDb.OpenRecordset("SELECT DISTINCT Manager_ID FROM TableA WHERE ((Manager_ID Is Not Null) AND ([APPROVE/DENY] Is Null))")
users = rs1.Fields("Manager_ID") & "<br>" & users
body = "<p>[EMAIL BODY TEXT]</p>" & _
"<ul><li><strong>" & users & "</strong></li><ul>"