Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Charts from Excel into Outlook

Status
Not open for further replies.

Hacktastic

Technical User
Feb 27, 2007
54
US
I saw this months ago, but I cannot find the page again.

I am looking on how to have VBA from excel copy a chart then paste it into the body of an email.

has anyone done this and is this doable?

Thanks!
 




Hi,

Right-click

Paste Special - and the select a PICTURE type of image.

Skip,

[glasses]Have you heard that the roundest knight at King Arthur's round table was...
Sir Cumference![tongue]
 
ok, done, but now how do i get it into the body of the email in outlook?

 



Do you have Plain text selected as the Message Format?

Select HTML or Rich Text.

Skip,

[glasses]Have you heard that the roundest knight at King Arthur's round table was...
Sir Cumference![tongue]
 
skip,

thank you for your assistance,

I have outlook 2007 and excel 2007. I have code that will create a copy of the chart as an image(as provided by you) now I would like to put it into the body of the outlook email. via vba.

I have several charts and would like to automate this process.

I dont know what to put in this code for HTML body:

Sub SendMail2Partners()
Dim strTo As String 'recipients
Dim MyApp As New Outlook.Application
Dim MyItem As Outlook.MailItem
Dim strSubject As String 'Email subject
Dim strMsg As String 'Email greeting
Dim DateV As String
Dim DSTMessage As String



Dim myOlApp As Object
Dim newItem As Object
Dim myrange As Excel.Range
Dim myrange2 As Excel.Range

Call Macro2

DSTMessage = ""


DateV = Format(Date - 1, "mm/dd/yyyy")
Sheets("Email Summary").Select

' Hype Machine
Set MyItem = MyApp.CreateItem(olMailItem)
strMsg = "<BR></BR>"
strSubject = ""
With MyItem
.To = ""
.CC = ""
.Subject = "Test"
.HTMLBody = ??????????????

End With
MyItem.Display
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top