Access vba - imagem no corpo do e-mail

[renannsoares]

Bom dia Pessoal, gostaria de esclarecer uma dúvida no VBA, o código a baixo envia o e-mail , porém não está enviando com a imagem no corpo do e-mail! Vocês conseguem me ajudar?

Obs: é um banco access com uma imagem que eu pego no arquivo do computador, quando eu comecei a fazer o código a ideia seria pegar um relatório do access e colar no corpo do e-mail como imagem, mas não consegui desenvolver o código!

 

Private Sub SeuBotao_Click()
Dim rst As DAO.Recordset
Dim strDestinatarios
Dim strTitulo
Dim strMensagemCorpoDoEmail

Set rst = CurrentDb.OpenRecordset("Con_email")

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("e-mail") & ";"
rst.MoveNext
Loop

strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
strTitulo = "Faturas Wappa à vencer"

strMensagemCorpoDoEmail = "www.xxx.com.br" & vbCrLf & _
        "xxxxxxxx" & vbCrLf & _
strMensagemCorpoDoEmail = "<img src=cid C:\Users\xxxxx.PNG>"

[Basole]

Para a imagem carregar no corpo do email, voce precisa subir a imagem, e hospedar em algum site.

É assim que funciona quando voce recebe algum email promocional, que tem a opção de voce carregar a imagem ou não.

 

Quanto ao relatorio,,voce pode inserir este relatorio no excel e enviar o intervalo no corpo do email  

 

https://support.microsoft.com/en-us/kb/816644