enviar imagem do excel para o outlook

Renato Knupp · Julho 26, 2022

Pessoal, criei uma rotinha em uma planilha para enviar um email pelo outlook, porém preciso que no corpo do email apareça uma imagem que está na minha planilha.

Dentro da planilha eu tenho uma imagem onde nomeei como "QR_Code", e quando inserir o corpo do email no .HTMLBody eu colocarei essa imagem.

.HTMLBody = "<html><body>Senhores, Favor utilizar o código abaixo para acesso. " & imagem & " Obrigado! </body></html>"

já tentei de diversas formas, com vários exemplo pesquisados, mas não deu certo. Alguém consegue me ajudar pfvr?

Alyson Ronnan Martins · Julho 26, 2022

Boa tarde @Renato Knupp

Eu pesquisei e encontrei o seguinte artigo:

Tens de incluir a imagem e escondê-la. A posição 0 vai adicioná-la e escondê-la, o 1 é a constante do Outlook olByValue.

.Attachments.Add FILENAME, 1, 0

Assim que adicionares a imagem tens de utilizar a src como src="cid:FILENAME.jpg".

Experimenta adicionar esta linha:

.Attachments.Add "G:\SETOR DE CADASTRO\WELLINGTON\SIGN.jpg", 1, 0

E no html:

.HTMLBody = Email_Body & "<html><body><img src='cid:SIGN.jpg'></body></html>"

Fonte: Link

Renato Knupp · Julho 26, 2022

Então, mas nesse caso eu tenho uma imagem já salva no computador (tentei adaptá-lo), no meu caso ela não está salva, a imagem está dentro da minha planilha.

Na minha planilha eu inseri a imagem dessa forma:

URL = "https://chart.googleapis.com/chart?chs=130x130&cht=qr&chl=" & Worksheets("QR").Range("q1").Value

Worksheets("QR").Pictures.Insert(URL).Select

With Selection.ShapeRange

.Name = "QR_Code"

End With

agora eu preciso pegar a imagem "QR_Code" e coloca-la no corpo do email. Tentei salva-la no computador ("C:\temp\teste.jpg"), com isso sua sugestão funcionaria mas, não deu certo. Tentei copia-la e enviar direto no .HTMLBody mas também não funciona. tentei coloca-la em uma variável, mas também sem sucesso. tá faltando algum detalhe que estou deixando passar batido.

Renato Knupp · Julho 27, 2022

Pessoal, consegui dessa forma, caso ajude alguém.

Aqui eu salvo a imagem no computador

Dim xShape As Shape

Dim oSheet As Worksheet

Dim oTemp As ChartObject

Dim oChartArea As Chart

Dim iFile as String

Set oSheet = ActiveSheet

Set xShape = oSheet.Shapes.Item("imagem1")

iFile = “C:\temp\QR_Code.jpeg”

xShape.CopyPicture

Set oTemp = oSheet.ChartObjects.Add(0, 0, xShape.Width, xShape.Height)

Set oChartArea = oTemp.Chart

oTemp.Activate

With oChartArea

.ChartArea.Select

.Paste

.Export (iFile)

End With

oTemp.Delete

Depois no .HTMLBody eu chamo o endereço pelo "<img src = " & iFile & ">"

Não sei se é a forma mais simples, mas funcionou.

Entrar

enviar imagem do excel para o outlook

Pergunta

Renato Knupp

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Alyson Ronnan Martins

Link para o comentário

Compartilhar em outros sites

Renato Knupp

Link para o comentário

Compartilhar em outros sites

Renato Knupp

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades