Aiuto creazione tabella non dati ma testo

Ciao a tutti.
Il mio primo messaggio è una richiesta di aiuto.

Ho creato questo codice:

Private Sub Command4_Click()
Dim recip As Variant
Dim strMsg As String
Dim other(3) As Variant

If Me.STATO_SPEDIZIONE <> "Da Spedire" Then
MsgBox ("Mail già inviata, attenzione")
Exit Sub
Else
recip = Me.Mail_Socio
other(0) = Me.Mail_S1
If Not IsNull(Me.Mail_S2) Then other(1) = Me.Mail_S2
If Not IsNull(Me.Mail_S3) Then other(2) = Me.Mail_S3

strMsg = "Gentile Socio," & vbCrLf & vbCrLf & "A seguito dell'emissione dell'offerta:" & vbCrLf & vbCrLf & "n° " & Me.ID_Offerta & " - " & Me.Titolo_Offerta & vbCrLf & vbCrLf & "Le inviamo la presente per ricordarLe la necessità di adempiere agli obblighi previsti dalla normativa Antiriciclaggio (DLgs. 231/2007), secondo le modalità indicate nella Procedura Adempimenti Normativa Antiriciclaggio e Antiterrorismo applicabile alla Sua Legal Entity e reperibile sul portale." & vbCrLf & vbCrLf & "Questo reminder ha lo scopo di darLe più tempo per effettuare quanto previsto." & vbCrLf & "Le attività necessarie dovranno concludersi  entro  il conferimento d'incarico per non incorrere nelle sanzioni previste dalla normativa in vigore." & vbCrLf & vbCrLf & "Siamo a Sua disposizione per eventuali chiarimenti." & vbCrLf & vbCrLf & "Cordiali saluti" & vbCrLf & "Compliance Office - Area Antiriciclaggio"

If Me.CREA_SOLO = "No" Then
SendNotesMail "Gentle Reminder: Antiriciclaggio su cliente " & Me.Rag_Soc_Comm, "", recip, other(), strMsg, False
Else
DraftNotesMail "Gentle Reminder: Antiriciclaggio su cliente " & Me.Rag_Soc_Comm, "", recip, other(), strMsg, False
End If
End If

End Sub
Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient As Variant, cc As Variant, BodyText As String, SaveIt As Boolean)
    Dim Maildb As Object
    Dim UserName As String
    Dim MailDbName As String
    Dim MailDoc As Object
    Dim AttachME As Object
    Dim Session As Object
    Dim EmbedObj As Object
    Dim DBCorrente As DAO.Database
    Dim Tabella As DAO.Recordset
    Dim Pratica As Double
    Dim Status As String
    
    Status = "Mail inviata"
    Pratica = Me.ID_Offerta
    
    Set DBCorrente = CurrentDb
    Set Tabella = DBCorrente.OpenRecordset("T_REMINDER")
    Tabella.MoveFirst
   
    Set Session = CreateObject("Notes.NotesSession")
    'UserName = 'Session.UserName se da posta privata
    'MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'se da posta privata
    
    Set Maildb = Session.GetDatabase("IT-MBX005/IT/Server/PwC", "mailin\Antiriciclaggio.nsf")
    If Maildb.IsOpen = True Then
     Else
         Maildb.OPENMAIL
     End If
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Principal = "Antiriciclaggio_CO@EMEA-IT"
    MailDoc.ReplyTo = "Antiriciclaggio_CO"
    MailDoc.From = "Antiriciclaggio_CO@EMEA-IT"
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.copyto = cc
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SaveMessageOnSend = True
    'Allegato
    If Attachment <> "" Then
        Set AttachME = MailDoc.CreateRichTextItem("Attachment")
        Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
        MailDoc.CreateRichTextItem ("Attachment")
    End If
    MailDoc.PostedDate = Now()
    MailDoc.Send 0, Recipient
    Do While Not Tabella.EOF
        If Tabella.Fields("ID_Offerta") = Pratica Then
         Tabella.Edit
         Tabella.Fields("STATO_SPEDIZIONE").Value = Status
         Tabella.Update
         Tabella.MoveNext
        Else
         Tabella.MoveNext
        End If
    Loop
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
    Tabella.Close
    DBCorrente.Close
End Sub
Public Sub DraftNotesMail(Subject As String, Attachment As String, Recipient As Variant, cc As Variant, BodyText As String, SaveIt As Boolean)
    Dim Maildb As Object
    Dim UserName As String
    Dim MailDbName As String
    Dim MailDoc As Object
    Dim AttachME As Object
    Dim Session As Object
    Dim EmbedObj As Object
    Dim DBCorrente As DAO.Database
    Dim Tabella As DAO.Recordset
    Dim Status As String
    Dim Pratica As Double

    Pratica = Me.ID_Offerta
    Status = "Mail in bozza"
    
    Set DBCorrente = CurrentDb
    Set Tabella = DBCorrente.OpenRecordset("T_REMINDER")
    Tabella.MoveFirst
    
    Set Session = CreateObject("Notes.NotesSession")
    'UserName = 'Session.UserName se da posta privata
    'MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'se da posta privata
    
    Set Maildb = Session.GetDatabase("IT-MBX005/IT/Server/PwC", "mailin\Antiriciclaggio.nsf")
    If Maildb.IsOpen = True Then
     Else
         Maildb.OPENMAIL
     End If
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.copyto = cc
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SaveMessageOnSend = True
    'Allegato
    If Attachment <> "" Then
        Set AttachME = MailDoc.CreateRichTextItem("Attachment")
        Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
        MailDoc.CreateRichTextItem ("Attachment")
    End If
    Call MailDoc.Save(True, True)
    Do While Not Tabella.EOF
    If Tabella.Fields("ID_Offerta").Value = Pratica Then
    Tabella.Edit
    Tabella.Fields("STATO_SPEDIZIONE") = Status
    Tabella.Update
    Tabella.MoveNext
    Else
    Tabella.MoveNext
    End If
    Loop
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
    Tabella.Close
    DBCorrente.Close
End Sub

Avrei bisogno che nel testo della mail, venga inserita una tabella, non dati di access, ma una tabella del tipo:

|Nome|Cognome|
|Andrea|Cicciuz|

i dati inseriti li pescherò da una link table, ma non riesco proprio a capire come creare questo nel body della mail...potete aiutarmi? Ovviamente non come allegato...grazie.