Ir ao conteúdo
  • Cadastre-se

renannsoares

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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>"

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

×
×
  • Criar novo...