código para gravação de relatório no corpo do e-mail

Através do código abaixo, envio o relatório: “Distribuição de ESERT4H” no corpo do e-mail,  alguém saberia como eu poderia adicionar mais um relatório no mesmo corpo do e-mail?

DoCmd.OutputTo acOutputReport, "Distribuição de ESERT4H", "HTML(*.html)", "D:\Access\temp\Distribuição de ESERT4H.html", False, "", 0, acExportQualityScreen

Dim Out As Outlook.Application
Dim NS As Outlook.NameSpace
Dim Folder As MAPIFolder
Dim Mens As MailItem
Dim objOutlookRec As Outlook.Recipient

Set Out = New Outlook.Application
Set NS = Out.GetNamespace("MAPI")
Set Folder = NS.GetDefaultFolder(olFolderInbox)
Set Mens = Folder.Items.Add

With Mens

Set objOutlookRec = .Recipients.Add("glcosta")

.BCC = ""

.Body = ""

.BodyFormat = olFormatHTML
.HTMLBody = fncLerArquivo("D:\Access\temp\Distribuição de ESERT4H.html")

.Send

End With

tem como você postar parte do bd? estou precisando de um código deste tipo mesmo!!!1