Excel VBA Course
Excel VBA Course - From Beginner to Expert

200+ Video Lessons
50+ Hours of Video
200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

VBA Email Active Sheet plus Cell Range

0

I have a workbook that has daily sheets that i need to email from a list in Address sheet.

I want to Attatch the Active Sheet as an Attatchment and then from the same sheet to select a range of cells to be in the body of the email.

The idead is when the email is received the attachment is there to open and the body of the email has some detail

Answer
Discuss

Answers

0
Selected Answer

Nobody can answer your question more comprehensively than Ron de Bruin.

Discuss

Discussion

I have tried to contact him but had no responce to my question

Thanks
JohnCHill (rep: 2) Oct 28, '17 at 7:27 am
It's all on his website. Follow the link I gave you.
Variatus (rep: 4889) Oct 28, '17 at 9:02 pm
I understand what your saying and have found 2 sets of code that will do what i want it to do but as seperate code and i can not get them to work together thats why i posted the question to see if anyone can hep.

Thank you for your reply
JohnCHill (rep: 2) Oct 29, '17 at 2:58 am
If you could post your two sets of code, both of them working the way you want, it wouldn't take much of my time to fit them together. I shall be glad to do it for you.
Variatus (rep: 4889) Oct 29, '17 at 10:40 pm
John, to get help here you should have a pointed specific question and thats why you got the link to ron de bruins site, so you can start to work on the issue and then come back here for specific help. We dont just create somethig from scratch without the asker putting in a good try first.
don (rep: 1989) Oct 30, '17 at 5:41 am
Code_Goes_Here

'This code emails out the selected Range
Sub Send_Range()
  
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("b2:j15").Select
  
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "john.hill@mnscorp.net"
      .Item.Subject = "My subject"
      .Item.Send
   End With
End Sub
Code_Goes_Here
 
JohnCHill (rep: 2) Nov 3, '17 at 3:03 am
Variatus
It will only allow me to post part of the code for the emailing of the range section my other code is too long to post is there any other way to send you my code ?
John
JohnCHill (rep: 2) Nov 3, '17 at 3:13 am
You need to edit your original question and update it with the code. There, you can post everything and it won't cut you off.
don (rep: 1989) Nov 3, '17 at 3:31 am
The best way would be to have it in a workbook and attach the workbook to your original question.
Variatus (rep: 4889) Nov 3, '17 at 5:35 am
Add to Discussion


Answer the Question

You must create an account to use the forum. Create an Account or Login