[Resolvido]Consulta diretamente corpo email

Bom dia Srs! É possível mandar uma tabela diretamente no corpo do email via vba?

Obs: Não em anexo.

Abraço!!

Basta passar todo o conteudo  da consulta para uma variavel... E no Corpo do email, colocar a variavel amigo!

Para isso abra um recordset com a consulta desejada...
Faça um Loop percorrendo todos os registros da consulta e concatenando em uma Variavel.... e ao final aplique ela a seu email!

Veja esse exemplo aqui: https://www.maximoaccess.com/t28402-dividir-texto-a-cima-de-65mil-caracteres-em-caixas-de-texto-em-relatorio-com-ate-64-000-caracteres-por-caixa-e-texto <=== O que lhe importará é apenas a forma como é construída o relatório... Veja a Função Estoque_Do

Bom dia Fabio! É que na vdd eu estou salvando e enviando os relatorios no formato html direto no corpo do email. O problema, é que qdo vai para o Outlook, o relatório aparece um pouco desformatado. Li em um tópico que era possível abrir o html na caixa de texto e depois enviar para o corpo do email, preservando a formatação.

Vc sabe alguma coisa a respeito dessa possibilidade? Desde já, agradeço a atenção e ajuda!!

Mudou um pouco ne sua duvida?

Bom nao conheco nada do tipo. Mas posta o que ja tem para testarmos e ver se achamos solucao.

Bom dia Fabio! Antes de mais nada, obrigado pela ajuda Estou postando o banco de dados para que vc e os colegas interessados possam dar uma olhada. Desculpa a demora em responder.

Adianto que sou iniciante kkkk. A finalidade desse bd é poder cadastrar o cliente e os orçamentos que são feitos ao mesmo e enviar por email.

o caminho do arquivo pdf e html estão na pasta tbdoc. Ao salvar o relatório, ele já salva nos dois formatos.

O que eu gostaria é de tentar manter a formatação do arquivo html quando ele é inserido direto no corpo do email.

E, aproveitando a oportunidade, saber se é possivel excluir ao mesmo tempo o arquivo e o caminho dele na tabela tbDOC.

Qualquer duvida ou informação que precisar estou a disposição.

Access 2010.

Pessoal, salvo o relatório nos formatos pdf e html. Para enviar diretamente no corpo do email, envio o html da seguinte forma:

Código:

Dim objOut      As Object
Dim objMail    As Object
Dim objclip    As Object
Const olMailItem = 0

'---------------------------------------------
'Carregando a coleção do Outlook
'Similar ao abrir o Outlook
'---------------------------------------------
Set objOut = CreateObject("Outlook.application")

'------------------------------------------------------------
'Abrindo o formulário de email para inserir os itens de email
'Similar ao clicar no botão NOVO do Outlook
'------------------------------------------------------------
Set objMail = objOut.CreateItem(olMailItem)
'Passando os valores do formulário exemplo para os itens de email
'-----------------------------------------------------------------------
objMail.To = Me!txpara 'destinatário
objMail.Subject = Me!txassunto 'assunto email
objMail.CC = Nz(Me!txcc, "") 'com cópia
objMail.BCC = Nz(Me!txcco, "") 'Com cópia oculta
objMail.BodyFormat = olFormatRichText
objMail.HTMLBody = fncLerArquivo(CurrentProject.Path & "\orçamentos\" & Me!TXANEXO.Column(0))
'------------------------------------------------------------
'Mostra a tela de sáida de email que abrimos
'-----------------------------------------------------------------
objMail.Display

'-------------------------------------------------------
'Tudo já foi entregue ao outlook, então podemos esvaziar
'a memoria do computador usada pelas variáveis
'-------------------------------------------------------
Set objAnexo = Nothing
Set objMail = Nothing
Set objOut = Nothing
anexar.Enabled = False
End If
End If
End If
End If