Envio de e-mail automático com anexo exposto no corpo do e-mail

Pessoal! alguém saberia o codigo para criar no Access, uma forma de inserir no "corpo" do  e-mail automático, uma figura do Excell, ou uma parte da planilha do mesmo Excell?
O código que estou usando para anexar é o  abaixo, mas gostaria de anexar no corpo do e-mail, o objetivo é visualizar no corpo do out look, o gráfico ou planilha, sem a necessidade de abrir o anexo.

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")

.CC = ""
.Body = email
.Subject = Nome
.Attachments.Add ("D:\Access\Arquivos\Resumo_Diario.xls")
.Send
End With