Take a snapshot image of excel and email in body of outlook

qmann

Board Regular
Joined
May 9, 2003
Messages
94
Okay here's what i need some help with.
I have created a template that when a button is clicked it will send an email to a specific user as an attachment.

What i would like to do is take a snapshot image (cannot just copy cells because there are images that must be included, i guess i could link the objects to a specific cell.) I then would like this to be mailed to a specific recepient but i would like the email to be included in the body, not as an attachment.

What i am doing right now is saving the template when the button is clicked and then sending it to the email recepient, with the .Sendmail command.

Any help with including this in the body of the email would be great.

CURRENT CODE:
Private Sub CommandButton1_Click()
f = "F:\InOut\Employee In and Out\"
ActiveWorkbook.SaveAs f & Format(Now(), "DDMMYYYYHHSS") & Replace(Sheets("Sheet1").Cells(2, 1), " ", "") & ".xls"
ActiveWorkbook.SendMail Recepients:= "email@email.com"
End Sub
 

Excel Facts

Waterfall charts in Excel?
Office 365 customers have access to Waterfall charts since late 2016. They were added to Excel 2019.

qmann

Board Regular
Joined
May 9, 2003
Messages
94
Re: Take a snapshot image of excel and email in body of outl

wow extremely complex... anyone else with any ideas... i may just keep it as an attachment.
 

skf786

Board Regular
Joined
Sep 26, 2010
Messages
155
Okay here's what i need some help with.
I have created a template that when a button is clicked it will send an email to a specific user as an attachment.

What i would like to do is take a snapshot image (cannot just copy cells because there are images that must be included, i guess i could link the objects to a specific cell.) I then would like this to be mailed to a specific recepient but i would like the email to be included in the body, not as an attachment.

What i am doing right now is saving the template when the button is clicked and then sending it to the email recepient, with the .Sendmail command.

Any help with including this in the body of the email would be great.

CURRENT CODE:
Private Sub CommandButton1_Click()
f = "F:\InOut\Employee In and Out\"
ActiveWorkbook.SaveAs f & Format(Now(), "DDMMYYYYHHSS") & Replace(Sheets("Sheet1").Cells(2, 1), " ", "") & ".xls"
ActiveWorkbook.SendMail Recepients:= "email@email.com"
End Sub
i have a related question. i also have an excel form. when submit button is pressed, the file is saved and attached to a draft email with my email address already filled in, plus the subject line. however the email is always opened in outlook express or ms outook. what i want is that it should first ask the user which mail service is to be used for sending the email e.g. user may have gmail, yahoo mail, hotmail etc i.e. web based emails and not the outlook etc.

thanks
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,151,895
Messages
5,766,978
Members
425,392
Latest member
Booknerd

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top