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

[qmann]

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

 

[Juan Pablo González]

Re: Take a snapshot image of excel and email in body of outl

Using this very cool code from Ivan F Moala:

http://www.mrexcel.com/board2/viewtopic.php?t=63379&highlight=picture+outlook

and taking an image using

Range("A1:C10").CopyPicture xlScreen,xlPicture

I think you could accomplish what you want.

 

[qmann]

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]

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