Código VBA para inserir imagem no corpo do email

2024 - VBA & Macros

Post Recente por Basole 5 anos atrás

3 Posts

3 Usuários

0 Reactions

2,287 Visualizações

RSS

Silvia

(@silvia)

Posts: 1

New Member

Topic starter

Oi Gente, sou nova por aqui e gostaria de uma ajuda.
Eu tenho uma macro que cria o e-mail com o texto que eu preciso. Após esse texto eu preciso inserir uma imagem. Na verdade é uma imagem do próprio Excel.
Eu fiz esse código abaixo, porém a imagem não abre, fica um "x" vermelho, igual aqueles quando a imagem de um site não carrega.

Essa parte deveria anexar a imagem ao e-mail: "<img src = 'cid:FondeoSummary.jpg'>"
Alguém consegue me ajudar a achar o erro?

Obrigada!

Sub Envia_Emails_Pay()

Application.ScreenUpdating = False

    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    Dim Assunto As String
    Dim Texto As String
        Assunto = Sheets("Planilha1").Range("AK1")
    Dim Espacos As String
    Dim espacoHTML As String
    Dim intervalo As Range
    Dim Summary As ChartObject      
    
    Set intervalo = Sheets("Planilha1").Range("A1:E24")
    intervalo.CopyPicture
    Set FondeoSummary = Sheets("Planilha1").ChartObjects.Add(intervalo.Left, intervalo.Top, intervalo.Width, intervalo.Height)
      With FondeoSummary
        .Activate
        .Chart.Paste
        .Chart.Export "C:imagem" & "/tabela.jpg"
        .Delete
      End With
        
With OutlookMail
    
    .Display ' para envia o email diretamente defina o código .Send
    .To = ""
    .CC = ""
    .BCC = ""
    .Attachments.Add "C:imagem" & "/tabela.jpg", 1, 0
    .Subject = Assunto
    
    espacoHTML = "&nbsp;"
   Texto = "<font size=4>" & "Hi Pay," & "<br><br>" & "Please send funds, refering to information below: <b><u>" & "<br><br>" & "Total: " & Sheets("Planilha1").Range("E22") _
   & "<br><br>" & "<img src = 'cid:FondeoSummary.jpg'>" & "<br><br>" & "Thank you,</font>"

        .HTMLBody = Texto & .HTMLBody
                
    End With
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
    Set FondeoSummary = Nothing
    
End Sub

Postado : 27/09/2019 12:21 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Silvia,

Boa tarde!

Seja muito bem vinda ao fórum.

DICAS para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Algumas solicitações especiais que pedimos, por gentileza, ficar atento (a):
1 - Não inserir no titulo de suas postagens expressões como Help, Ajuda, etc. O título deve ser um resumo da sua necessidade para que outras pessoas que tenham a mesma dúvida possam efetuar a pesquisa e achar como foi resolvido.
2 - Não insira em suas mensagens frases todas escritas em letras maiúsculas. Isso, na Internet, é compreendido como gritos e muitos usuários sequer respondem somente por esse fato!
3 - Insira sempre um arquivo exemplo compactado com .ZIP aqui mesmo no fórum (suspenso temporariamente. Site passando por manutenção). Existe, logo abaixo da caixa de mensagens, uma aba chamada "Adicionar um anexo" para essa finalidade. O arquivo exemplo deve ser pequeno, com apenas 5 linhas no máximo, compactado com .ZIP e ter o mesmo layout (nome do arquivo, nome das abas/guias/folhas, mesma linha/coluna onde os dados se iniciam) do arquivo original. Links de arquivos enviados para sites de compartilhamento de arquivos, muitas vezes são bloqueados pelas empresas, por conterem muitos vírus. Alguns usuários que acessam o fórum a partir de empresas não conseguem baixar tais arquivos.
4 - Não utilize a ferramenta CITAR para inserir o inteiro teor das mensagens que lhe são encaminhadas como resposta. Citações, se estritamente necessárias ao entendimento da mensagem que você quer enviar, devem ser apenas de pequenos trechos das mensagens.
5 - Se for postar códigos VBA aqui no fórum, utilize a ferramenta CODE localizada logo no início da caixa de mensagens (quinto botão da esquerda para a direita). As linhas de código devem ficar entre as palavras "CODE e /CODE".
6 - Agradeça sempre às pessoas que lhe responderam e às mensagens que atenderam a necessidade de sua demanda. Esse agradecimento deve ser clicando na mãozinha que fica localizada ao lado da ferramenta CITAR. Lembre-se: o fórum é gratuito e esse é o único incentivo para as pessoas que prestam ajuda. Você pode agradecer a quantos usuários quiser.
7 - O título ou o texto das mensagens postadas não devem ser escritos todo em letras maiúsculas. Na internet, tudo escrito em letras maiúsculas é interpretado como gritos e muitos usuários sequer olham para esse tipo de mensagem.
8 - Não Utilize o Botão CITAR para efetuar as suas respostas. Para fazer isso use apenas o Botão RESPONDER.

Quanto a sua demanda, transferi a mesma para uma sala mais apropriada (VBA & Macros) pois aonde você postou destina-se apenas a apresentação de novos usuários.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 27/09/2019 3:04 pm

Basole

(@basole)

Posts: 487

Reputable Member

Experimente substituir pelo nome da imagem que é salva: "<img src = 'cid:tabela.jpg'>"


Texto = "<font size=4>" & "Hi Pay," & "<br><br>" & "Please send funds, refering to information below: <b><u>" & "<br><br>" & "Total: " & Sheets("Planilha1").Range("E22") _
   & "<br><br>" & "<img src = 'cid:tabela.jpg'>" & "<br><br>" & "Thank you,</font>"

Click em se a resposta foi util!