Visual Basic VBA para enviar email

Douglas ianes · 21 de julho de 2020

Boa tarde pessoal.

estou montando esse código para enviar uns relatórios por email, porém preciso anexar um grafico no corpo do email como imagem.

Fato é que se eu salvar o arquivo em algum local como imagem pra depois usar no codigo um SW da empresa bloqueia essa imagem, então eu preciso que gere a imagem direto no corpo do email.

<Sub Enviar_email()

Call Mostra

Set objeto_outlook = CreateObject("outlook.application")
Set Email = objeto_outlook.CreateItem(0)

Email.Display

Email.To = "[email protected]"
Email.cc = Cells(2, 1).Value & "@samsung.com"

Email.Subject = "Segue notificação de falha"

Email.Body = "Olá," _
& Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _
& Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value

Email.attachments.Add ActiveWorkbook.FullName

Email.send

End Sub>

como se fosse concatenado com o corpo do email

alguem pode me ajduar??

Midori · 21 de julho de 2020

@Douglas ianes Coloque o caminho correto da imagem e tente enviar assim,

.Attachments.Add "C:\IMAGEM.JPG"
.HTMLBody = "<html><img src=""cid:IMAGEM.JPG""</img></html>"
.Display
.Send

Se não der certo outra forma é copiar o gráfico (via macro) e colar quando a macro chamar a função Display.

Douglas ianes · 23 de julho de 2020

@Midori a principio o codigo que me passou deu certo.

ficou assim.

Sub Enviar_email()

Set objeto_outlook = CreateObject("outlook.application")
Set Email = objeto_outlook.CreateItem(0)

Email.Display

Email.To = "[email protected]"
Email.cc = Cells(2, 1).Value & "@gmail.com"

Email.Subject = "Segue notificação de falha"

Email.attachments.Add ActiveWorkbook.FullName
Email.attachments.Add "C:\Temp\painel.JPG"

Email.HTMLBody = "Olá," _
& Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _
& Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value & _
"<html><img src=""cid:painel.JPG""</img></html>

Email.send

End Sub

somente as quebra de texto que não estão funcionando.

ja tentei <br> também e não consegui.

Midori · 23 de julho de 2020

1 hora atrás, Douglas ianes disse:

somente as quebra de texto que não estão funcionando.

ja tentei <br> também e não consegui.

Faça a atribuição só com a sintaxe HTML,

Email.HTMLBody = "<html>Olá,<br><br>Segue em anexo notificação de falha encontrada em OQC." & _
    "<br><br>Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value & _
    "<br><img src=""cid:painel.JPG""</img></html>"