|
How to include Excel charts in Outlook email *body* with VB
Hello
Is it possible to cut and paste a regular Excel chart into an Outlook email *body* with VBA? I have all the code for sending emails from http://www.rondebruin.nl/mail/folder2/chart.htm but what is missing is the option of how to include the charts in the *body* of the generated email. Ron's example shows how to attach a GIF file. Does anyone know how to do this? My audience want to see the charts immediatley in the email body. Thanks in advance, Chrisso |
How to include Excel charts in Outlook email *body* with VB
Hi Chrisso
See http://www.rondebruin.nl/mail/folder3/mailenvelope.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Chrisso" wrote in message ... Hello Is it possible to cut and paste a regular Excel chart into an Outlook email *body* with VBA? I have all the code for sending emails from http://www.rondebruin.nl/mail/folder2/chart.htm but what is missing is the option of how to include the charts in the *body* of the generated email. Ron's example shows how to attach a GIF file. Does anyone know how to do this? My audience want to see the charts immediatley in the email body. Thanks in advance, Chrisso |
How to include Excel charts in Outlook email *body* with VB
Hi Ron,
In your MailEnvelope example, in your link below, I found if changed Dim Sendrng As Range to Dim Sendrng As Object Set Sendrng = Selection If I selected a chartarea, it worked fine. However it failed if I tried to do any of the following Set Sendrng = ActiveSheet.Chartobjects(1) Set Sendrng = ActiveSheet.Chartobjects(1).Chart Set Sendrng = ActiveSheet.Chartobjects(1).Chart.ChartArea In your "SaveSend_Embedded_Chart" as refered to by Chrisso here http://www.rondebruin.nl/mail/folder2/chart.htm the following change worked for me change With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hi there" .Attachments.Add Fname .Send 'or use .Display End With to With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" ' Fname = "C:\My_Sales1.gif" defined earlier s = "<pHi there<p" s = s & "<p<img src=file://" & Fname & "</p" s = s & "Bye" s = "<HTML<BODY" & s & "<HTML<BODY" .HTMLBody = s .Send 'or use .Display End With Regards, Peter T "Ron de Bruin" wrote in message ... Hi Chrisso See http://www.rondebruin.nl/mail/folder3/mailenvelope.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Chrisso" wrote in message ... Hello Is it possible to cut and paste a regular Excel chart into an Outlook email *body* with VBA? I have all the code for sending emails from http://www.rondebruin.nl/mail/folder2/chart.htm but what is missing is the option of how to include the charts in the *body* of the generated email. Ron's example shows how to attach a GIF file. Does anyone know how to do this? My audience want to see the charts immediatley in the email body. Thanks in advance, Chrisso |
How to include Excel charts in Outlook email *body* with VB
Hi Peter
You can also use this Activate the chart you want to send in the code ActiveSheet.ChartObjects("Grafiek 1").Activate Sub Send_Chart_with_MailEnvelope() On Error GoTo StopMacro With Application .ScreenUpdating = False .EnableEvents = False End With ActiveSheet.ChartObjects("Grafiek 1").Activate 'Create the mail and send it ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope ' Set the optional introduction field thats adds ' some header text to the email body. .Introduction = "This is a test mail." ' In the "With .Item" part you can add more options ' See the tips on this Outlook example page. ' http://www.rondebruin.nl/mail/tips2.htm With .Item .To = " .Subject = "My subject" .Send End With End With StopMacro: With Application .ScreenUpdating = True .EnableEvents = True End With ActiveWorkbook.EnvelopeVisible = False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Peter T" <peter-t@discussions wrote in message ... Hi Ron, In your MailEnvelope example, in your link below, I found if changed Dim Sendrng As Range to Dim Sendrng As Object Set Sendrng = Selection If I selected a chartarea, it worked fine. However it failed if I tried to do any of the following Set Sendrng = ActiveSheet.Chartobjects(1) Set Sendrng = ActiveSheet.Chartobjects(1).Chart Set Sendrng = ActiveSheet.Chartobjects(1).Chart.ChartArea In your "SaveSend_Embedded_Chart" as refered to by Chrisso here http://www.rondebruin.nl/mail/folder2/chart.htm the following change worked for me change With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hi there" .Attachments.Add Fname .Send 'or use .Display End With to With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" ' Fname = "C:\My_Sales1.gif" defined earlier s = "<pHi there<p" s = s & "<p<img src=file://" & Fname & "</p" s = s & "Bye" s = "<HTML<BODY" & s & "<HTML<BODY" .HTMLBody = s .Send 'or use .Display End With Regards, Peter T "Ron de Bruin" wrote in message ... Hi Chrisso See http://www.rondebruin.nl/mail/folder3/mailenvelope.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Chrisso" wrote in message ... Hello Is it possible to cut and paste a regular Excel chart into an Outlook email *body* with VBA? I have all the code for sending emails from http://www.rondebruin.nl/mail/folder2/chart.htm but what is missing is the option of how to include the charts in the *body* of the generated email. Ron's example shows how to attach a GIF file. Does anyone know how to do this? My audience want to see the charts immediatley in the email body. Thanks in advance, Chrisso |
How to include Excel charts in Outlook email *body* with VB
Btw: this is not working anymore in Excel 2007
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Ron de Bruin" wrote in message .. . Hi Peter You can also use this Activate the chart you want to send in the code ActiveSheet.ChartObjects("Grafiek 1").Activate Sub Send_Chart_with_MailEnvelope() On Error GoTo StopMacro With Application .ScreenUpdating = False .EnableEvents = False End With ActiveSheet.ChartObjects("Grafiek 1").Activate 'Create the mail and send it ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope ' Set the optional introduction field thats adds ' some header text to the email body. .Introduction = "This is a test mail." ' In the "With .Item" part you can add more options ' See the tips on this Outlook example page. ' http://www.rondebruin.nl/mail/tips2.htm With .Item .To = " .Subject = "My subject" .Send End With End With StopMacro: With Application .ScreenUpdating = True .EnableEvents = True End With ActiveWorkbook.EnvelopeVisible = False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Peter T" <peter-t@discussions wrote in message ... Hi Ron, In your MailEnvelope example, in your link below, I found if changed Dim Sendrng As Range to Dim Sendrng As Object Set Sendrng = Selection If I selected a chartarea, it worked fine. However it failed if I tried to do any of the following Set Sendrng = ActiveSheet.Chartobjects(1) Set Sendrng = ActiveSheet.Chartobjects(1).Chart Set Sendrng = ActiveSheet.Chartobjects(1).Chart.ChartArea In your "SaveSend_Embedded_Chart" as refered to by Chrisso here http://www.rondebruin.nl/mail/folder2/chart.htm the following change worked for me change With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hi there" .Attachments.Add Fname .Send 'or use .Display End With to With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" ' Fname = "C:\My_Sales1.gif" defined earlier s = "<pHi there<p" s = s & "<p<img src=file://" & Fname & "</p" s = s & "Bye" s = "<HTML<BODY" & s & "<HTML<BODY" .HTMLBody = s .Send 'or use .Display End With Regards, Peter T "Ron de Bruin" wrote in message ... Hi Chrisso See http://www.rondebruin.nl/mail/folder3/mailenvelope.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Chrisso" wrote in message ... Hello Is it possible to cut and paste a regular Excel chart into an Outlook email *body* with VBA? I have all the code for sending emails from http://www.rondebruin.nl/mail/folder2/chart.htm but what is missing is the option of how to include the charts in the *body* of the generated email. Ron's example shows how to attach a GIF file. Does anyone know how to do this? My audience want to see the charts immediatley in the email body. Thanks in advance, Chrisso |
How to include Excel charts in Outlook email *body* with VB
Looks like "Send_Chart_with_MailEnvelope" is one of those few operations
that requires code to "select" something, in this case the chart. In my previous post, in an 'ordinary' message I mentioned something like the following works s = s & "<p<img src=file://" & Fname & "</p" s = "<HTML<BODY" & s & "<HTML<BODY" .HTMLBody = s however I forgot to say that the file, Fname, must remain on the disk, so when done don't do Kill Fname Regards, Peter T "Ron de Bruin" wrote in message .. . Hi Peter You can also use this Activate the chart you want to send in the code ActiveSheet.ChartObjects("Grafiek 1").Activate Sub Send_Chart_with_MailEnvelope() On Error GoTo StopMacro With Application .ScreenUpdating = False .EnableEvents = False End With ActiveSheet.ChartObjects("Grafiek 1").Activate 'Create the mail and send it ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope ' Set the optional introduction field thats adds ' some header text to the email body. .Introduction = "This is a test mail." ' In the "With .Item" part you can add more options ' See the tips on this Outlook example page. ' http://www.rondebruin.nl/mail/tips2.htm With .Item .To = " .Subject = "My subject" .Send End With End With StopMacro: With Application .ScreenUpdating = True .EnableEvents = True End With ActiveWorkbook.EnvelopeVisible = False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Peter T" <peter-t@discussions wrote in message ... Hi Ron, In your MailEnvelope example, in your link below, I found if changed Dim Sendrng As Range to Dim Sendrng As Object Set Sendrng = Selection If I selected a chartarea, it worked fine. However it failed if I tried to do any of the following Set Sendrng = ActiveSheet.Chartobjects(1) Set Sendrng = ActiveSheet.Chartobjects(1).Chart Set Sendrng = ActiveSheet.Chartobjects(1).Chart.ChartArea In your "SaveSend_Embedded_Chart" as refered to by Chrisso here http://www.rondebruin.nl/mail/folder2/chart.htm the following change worked for me change With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hi there" .Attachments.Add Fname .Send 'or use .Display End With to With OutMail .To = " .CC = "" .BCC = "" .Subject = "This is the Subject line" ' Fname = "C:\My_Sales1.gif" defined earlier s = "<pHi there<p" s = s & "<p<img src=file://" & Fname & "</p" s = s & "Bye" s = "<HTML<BODY" & s & "<HTML<BODY" .HTMLBody = s .Send 'or use .Display End With Regards, Peter T "Ron de Bruin" wrote in message ... Hi Chrisso See http://www.rondebruin.nl/mail/folder3/mailenvelope.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Chrisso" wrote in message ... Hello Is it possible to cut and paste a regular Excel chart into an Outlook email *body* with VBA? I have all the code for sending emails from http://www.rondebruin.nl/mail/folder2/chart.htm but what is missing is the option of how to include the charts in the *body* of the generated email. Ron's example shows how to attach a GIF file. Does anyone know how to do this? My audience want to see the charts immediatley in the email body. Thanks in advance, Chrisso |
How to include Excel charts in Outlook email *body* with VB
"Ron de Bruin" wrote in message
Btw: this is not working anymore in Excel 2007 It (MailEnvelope) doesn't work in Excel 2000 either. XP? Regards, Peter T |
How to include Excel charts in Outlook email *body* with VB
Yes XP
In 2007 they remove the chart send option -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Peter T" <peter-t@discussions wrote in message ... "Ron de Bruin" wrote in message Btw: this is not working anymore in Excel 2007 It (MailEnvelope) doesn't work in Excel 2000 either. XP? Regards, Peter T |
| All times are GMT +1. The time now is 12:24 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com