none
Excel VBA - Função enviar e-mail com imagem no corpo RRS feed

  • Pergunta

  • Tenho um formulário de orçamento, que depois de preenchido gera um .pdf e envia por e-mail ao cliente. Tudo funciona perfeitamente. Acontece que eu só consigo adicionar texto no corpo da mensagem, e preciso colocar também uma imagem (mas não como anexo) que está hospedada online.

    Corpo:

    .HTMLBody = Range("A12").Value & "," & "<div><br></div><div>Segue em anexo o orçamento, conforme solicitado.</div><div><br></div><div>Colocamo-nos à disposição para quaisquer esclarecimentos.</div><div><br></div><div>Atenciosamente,</div><div>Empresa.</div><div>________________________________</div><div>Fone: (00) 1234-5678</div><div>E-mail: contato@email.com.br</div><div><br></div><div>Enviado automaticamente.</div>"

    terça-feira, 30 de setembro de 2014 17:01

Respostas

  • Speed... 

    olha um exemplo de um html que tenho para enviar emails com as imagens no corpo do email...

    t é uma string que envio para o HTMLBody...

    t = ""
    t = t & "<html>"
    t = t & "  <body>"
    t = t & "   <font color =""Blue"">"
    t = t & "   <font size=""2"">"
    t = t & "   <b>CEP - CONTROLE ESTATÍSTICO DO PROCESSO</b><P>"
    t = t & "   <b>" & lblPeriodo.Caption & "</b><BR>"
    t = t & "   <b>Unidade: " & cmbUnidade.Value & "</b><BR>"
    t = t & "   <b>Processo: " & cmbProcesso.Value & "</b><BR>"
    t = t & "   <b>Etapa: " & cmbEtapa.Value & "</b><BR>"
    t = t & "   <b>Tipo Fórmula: " & cmbTipoFormula.Value & "</b><BR>"
    t = t & "   <br><br>"
      
      
    t = t & "   <img src=""cid:GrafpH.gif""><br>"
    t = t & "   <img src=""cid:GrafTemp.gif""><br>"
    t = t & "   <img src=""cid:GrafBaume.gif""><br>"
    t = t & "   <img src=""cid:GrafAtrasos.gif""><br>"
      
    t = t & "  </body>"
    t = t & "</html>"

    EDIT:

    uma coisa que esqueci de mencionar, para as imagens serem reconhecidas, você deve também anexá-las ao email...


    Natan




    terça-feira, 30 de setembro de 2014 17:08

Todas as Respostas

  • Speed... 

    olha um exemplo de um html que tenho para enviar emails com as imagens no corpo do email...

    t é uma string que envio para o HTMLBody...

    t = ""
    t = t & "<html>"
    t = t & "  <body>"
    t = t & "   <font color =""Blue"">"
    t = t & "   <font size=""2"">"
    t = t & "   <b>CEP - CONTROLE ESTATÍSTICO DO PROCESSO</b><P>"
    t = t & "   <b>" & lblPeriodo.Caption & "</b><BR>"
    t = t & "   <b>Unidade: " & cmbUnidade.Value & "</b><BR>"
    t = t & "   <b>Processo: " & cmbProcesso.Value & "</b><BR>"
    t = t & "   <b>Etapa: " & cmbEtapa.Value & "</b><BR>"
    t = t & "   <b>Tipo Fórmula: " & cmbTipoFormula.Value & "</b><BR>"
    t = t & "   <br><br>"
      
      
    t = t & "   <img src=""cid:GrafpH.gif""><br>"
    t = t & "   <img src=""cid:GrafTemp.gif""><br>"
    t = t & "   <img src=""cid:GrafBaume.gif""><br>"
    t = t & "   <img src=""cid:GrafAtrasos.gif""><br>"
      
    t = t & "  </body>"
    t = t & "</html>"

    EDIT:

    uma coisa que esqueci de mencionar, para as imagens serem reconhecidas, você deve também anexá-las ao email...


    Natan




    terça-feira, 30 de setembro de 2014 17:08
  • Muito bom método para enviar imagens em e-mail.

    A ação de anexar uma imagem dispensa a necessidade de fazer os atributos img src referir a um URL.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 17 de outubro de 2014 00:20
    Moderador