renannsoares
-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por renannsoares
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
Access vba - imagem no corpo do e-mail
em Microsoft Office e similares
Postado
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>"