Boa tarde 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ê conseguem me ajudar?
Obs: é uma banco access com uma imagem que eu pego no arquivo do computador, quando eu comecei a fazer o código a idéia 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
Pergunta
rsoares
Boa tarde 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ê conseguem me ajudar?
Obs: é uma banco access com uma imagem que eu pego no arquivo do computador, quando eu comecei a fazer o código a idéia 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>"
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.