✔ Programação GLOBAL®: VBA Excel - Enviando o Gráfico para o corpo do e-mail

VBA Excel - Enviando o Gráfico para o corpo do e-mail - Code to send Chart in Outlook Mail body

Receba 3 Calendários Customizáveis de 2013 em Excel

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

13 Dicas para se Falar em Público

Sim, com tantos relatórios automatizados que entregamos para os nossos Clientes, grande parte deles não vão mais anexados, antes são parte integrante do e-mail.

Para que possamos inserir tabelas, comentários e os gráficos propriamente ditos, precisamos ter a liberalidade de saber fazê-lo, segue o modo:

Sub ExportChart2OutlookBody()

Dim olMail As MailItem

Dim objOL As Object

Dim chrtpth As String

Dim bdy As String

Dim startmsg As String

Dim endmsg As String



' Crie um único Nome.

Let chrtpth = ThisWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"

' Mude o nome do gráfico e da Planilha que deseja exportar.

Sheets("Sheet1").ChartObjects("Chart 3").Chart.Export chrtpth



' Adicione o conteúdo do e-mail, bem como o gráfico que deseja inserir no corpo deste.



Let bdy = "<img src=""cid:" & Mid(chrtpth, InStrRev(chrtpth, "\") + 1) & """ width=700 height=500 > "

Let startmsg = " Hi Ashish," & " " & "Please find the chart below: " & " "

endmsg = " Many Thanks," & " " & "Ashish Koul" & " "



' Envie o e-mail.



Set objOL = CreateObject("Outlook.Application")

Set olMail = objOL.CreateItem(olMailItem)



With olMail

Let .To = "bernardess@gmail.com"

Let .Subject = "Adicionando um gráfico ao corpo do e-mail"

Let .Attachments.Add chrtpth

Let .HTMLBody = startmsg & bdy & endmsg

.Display

End With



' Apaga o gráfico exportado.

Kill chrtpth



Set olMail = Nothing

Set olApp = Nothing

End Sub