Trying To Insert Query/Recordset Results Into Body Of Outlook Email

[RunTime91]

Greetings..

I think Google got me close and I'm hoping I can find my way home with your guys' help...



What I'm trying to do seems simple enough - As the User inputs data into a form a TmpTbl populates with EmpNames & EmpID's.

Upon clicking the 'Submit' button I would like all of the names and ID's from that table to be inserted into the body of an Outlook email.

The code below works insofar as it produces a result without error - but it only inserts just the 'last' EmpName from the table into the email body - No EmpID.

Dim Dbs As DAO.Database
Dim Rs As DAO.Recordset
Dim StrSQL As String
Set Dbs = CurrentDb
          
   StrSQL = "SELECT * FROM QryTmpTktEmail"
   Set Rs = Dbs.OpenRecordset(StrSQL, dbOpenSnapshot)
       
      Do While Not Rs.EOF
         Boo = Rs("EmpName") & vbNewLine
         Rs.MoveNext
      Loop
        
        strBodyPass = "Hello," & vbCrLf & vbCrLf & _
                      "Please Submit Tickets For The Following Associates." & vbCrLf & vbCrLf & _
                       Boo

Also, I just need the names and ID's - nothing fancy, no need for HTML formatting or the table grids, etc.

Thanks as always for any help...

[RunTime91]

Update...

I figured out how to get both the name & ID with the following:

Do While Not Rs.EOF
   Boo = Rs("EmpName") & " " & _
   Rs("EmpID") & vbNewLine
   Rs.MoveNext
Loop

The above, of course, still inserts only the last record (EmpName & EmpID) from the table

[June7]

Boo = Boo & vbNewLine & Rs("EmpName") & " " & Rs("EmpID")

[RunTime91]

June ~

Thank You, So Very Much!!

RT...