Copy from Excel to Outlook as HTML

Hi All,

My workbook has 5 different sheets and I need to copy the five sheets and paste it into 5 different mails. Preferably as HTML.

The below written code only attaches the different sheets to outlook. I need the HTML below the body of the email. Please note that my range in the sheets varies from workbook to workbook but the sheet names remain the same.

Please Login or Register  to view this content.

The below written code just copies the sheets to outlook as HTML but doesn't attach the files

Please Login or Register  to view this content.

How do I merge both the codes?

Here;s the sample file
https://skydrive.live.com/redir?resi...LXmsEmw9mB3qlk

What I want to do is that I want to copy each sheet to different mails. Also attach the relevant sheet to the mail

Hi -

You can alter the second code you have to something like;

Please Login or Register  to view this content.

Regards,
Event

Your code works like a charm!! Thank YOU!!
How do I hard code the different email addresses into the macro

Hi -

Please Login or Register  to view this content.

Regards,
Event

I'm getting a run time error 9

Subscript out of range

Sheets(oneSheet.Name).Copy in this line.

Cant really figure out whats wrong

Originally Posted by event21

Hi -

Please Login or Register  to view this content.

Regards,
Event

This code will work if the email address is same for all the sheets. But in my case I need to send the mails to different addresses

Hi -

Have one sheet to store your email addresses with corresponding sheet name and look up the sheet name within the loop then pass it onto the To fields.

Regards,
Event

Originally Posted by event21

Hi -

You can alter the second code you have to something like;

Please Login or Register  to view this content.

Regards,
Event

I''ve modified the code to add a subject but it doesn't work
I'm getting a run time error 9
Subscript out of range

Sheets(oneSheet.Name).Copy (IN THIS LINE)

Can any one help.

Please Login or Register  to view this content.