Free for PREMIUM members
[Webinar] Streamline your web hosting managementRegister Today
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.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> </BODY>"
Open in new window
Author Closing Comment
The revolutionary project management tool is here! Plan visually with a single glance and make sure your projects get done.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!