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 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