Email filtered data to list of people

Hi all,

With my basic VBA skills and recording, I have managed to write this, that essentially auto filters information into another sheet, but try as I might, I cannot get this to bring up an Outlook code that works by putting this content into the body.
I am trying to do it so that copy's and pastes all visible content from the new sheet.

Ideally what I need it to do is complete the autofilter, email the content and loop onto the next person in the list.
I know the coding is messy, but any help would really be appreciated.

Please Login or Register  to view this content.

Thanks, Dan

**UPDATE**

Hi all,

I have changed and updated this coding slightly to the following;

Please Login or Register  to view this content.

This brings up the email at the end how I would like it. Great, however I need it to now go through the remaining list of people on Worksheet CP through until the end of the list in Column A.

Many thanks,
Dan

Hi..

This will do the following:

1. Find each Unique value in CP Sheet (A5 to LastRow).
2. For each of these names..
* Autofilter your 2 columns
* Create a table of the Autofiltered data
* Find Email address via Vlookup
* Insert table into the Body of the email


Note: Change .Display to .Send if you want the emails to be sent without previewing them (good idea when testing)..

In the attached file.. press the "Send" button on the second sheet...

Please Login or Register  to view this content.

Note: This method of sending the range works well for a contiguous range.. (hence why it was copied to a temp sheet)..

Learnt it from snb..
http://www.snb-vba.eu/index_en.html