Solved

Excel VBA- take Screenshot and then Embed in Email Message Body using Outlook

Posted on 2012-12-28

1 solution

6,392 Views

Last Modified: 2013-01-18

Hi Experts,

Is there a way to take a screen shot of a specific sheet and then Embed the image into the body of an email message using Outlook 2010?

I want the end user to be able to click a button named "Email" and then have the data on the worksheet captured in screenshot form then embedded and sent via email.

Sample-Workbook.xlsm

Comment

Question by:"Abys" Wallace

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

2 Comments

LVL 9

Accepted Solution

by:shorvath

shorvath earned 500 total points

ID: 387285812012-12-28

Replace your cmdEmail code with this code

Private Sub cmdEmail_Click()
Dim oRange As Range
Dim oCht As Chart
Dim oImg As Picture

Set oRange = Range("A1:P37")
Set oCht = Charts.Add

oRange.CopyPicture xlScreen, xlPicture
oCht.Paste
oCht.Export Filename:="C:\Temp\SavedRange.jpg", Filtername:="JPG"

Screenshot_Mail "Sample Email Address" & "; " & "Sample Email Address", "Sample Email Address" & _
 "; " & "Sample Email Address" & "; " & "Sample Email Address", "Rep II Case Productivity Report", "<font color=red>" & _
"<I>" & "Below is a Snapshot View of the Rep II Case Productivity Report:  " & "</font>" & "</I>" & _
"<BR>" & "<BR>" & "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
"<IMG alt='' hspace=0 src='C:\Temp\SavedRange.jpg' align=baseline border=0>&nbsp;</BODY>"

DoEvents
oCht.Delete

End Sub

Open in new window

Author Closing Comment

by:"Abys" Wallace

ID: 387286522012-12-28

Thank you @shorvath!

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Convert a grid inside a picture into Microsoft Excel

Article by: Wilder1626

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.

Automating Microsoft Excel from Access (Part II)

Article by: Dale Fye

In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.

Creating a Scrolling Chart in Excel

Video by: AnnieCushing

This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

Microsoft Excel

Creating an Interactive Chart for Marketers in Excel

Video by: AnnieCushing

This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.