✔ VBA Dashboards Specialist®: VBA Excel - Enviando o Gráfico para o corpo do e-mail

11 de fevereiro de 2013

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