VBA to email each sheet in a workbook

[leemcder]

Hi, I am hoping someone can please help me, I need to be able to email each sheet within a workbook to different people. The persons name will be in cell A1 on every sheet, I need a macro that will look up the person in A1 on each sheet in a sheet I have named mailinfo, and email the sheet to the person in cell A1. Some people may receive 1 email so I want those people to receive 1 email containing all the sheets relevant to them. I have attached a sample spreadsheet, in the example Jane Bloggs should receive 1 email containing 2 attachments, and Joe blogs will receive 1 attachment. Their names are in cells A1, and I have created a sheet named Mailinfo containing their name and email address. Can someone please help me? Many thanks

[Logit]

.
https://www.rondebruin.nl/win/s1/outlook/mail.htm

[leemcder]

Thanks but what I am looking for is not on that link, there is something similar but it does not look perform a lookup on cell A1 or send 1 email per person containing each of their sheets.