[Resolvido]Jogar o resultado de uma consulta diretamente no gmail

Bom dia turma!

Preciso que o resultado da consulta qry_faltaaluno_parte2 fique disponível no corpo do email.
No código abaixo, só aparece o último registro e preciso que apareça todos e caso não tenha registro, o email não será enviado.

Public Function SendMail()
Dim rs As DAO.Recordset
Dim txthtm As String


Set rs = CurrentDb.OpenRecordset("SELECT [qry_faltaaluno_parte2].[nome] FROM qry_faltaaluno_parte2")

Do While Not rs.EOF

   txthtm = rs!Nome
   rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
   Dim Obj As Object

   Set Obj = CreateObject("CDO.Message")
   With Obj.Configuration.Fields
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
       .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@gmail.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
       .Update
   End With
   
   With Obj
       .To = "email@emaili.com.br"
       .FROM = "email@gmail.com"
       .Subject = "Alunos ausentes por mais de 2 dias"
       .textbody = txthtm
   End With
   
   
   On Error Resume Next
   Obj.Send
   
   
   If Err.Number <> 0 Then
       MsgBox "CDO Error " & vbNewLine & Err.Description, vbCritical, "Avíso"
   Else
       MsgBox "Mensaje enviado con éxito", vbInformation, "Avíso"
   End If
   Set Obj = Nothing
End Function

Alguém consegue dar uma luz?

Bom dia
Respeite as regras do fórum: Aguarde, pelo menos, 24 horas antes de dar um up. Mesmo assim, seja mais resiliente pois já terá gasto alguns dias a tentar resolver e não resolveu, por isso, dê alguns dias aos colegas para pensarem, pois uma ideia boa precisará de mais tempo que a sua ideia que não funcionou.

Sobre a questão, tem um loop sem enviar mensagem e, no fim, é que envia a mensagem. Assim, a mensagem é enviada com os dados do último registo.
Coloque o código da mensagem dentro do loop

Muito obrigado Avelino. Devo mais essa!!!
Abraço