Emailing individual sheets to email(s) listed on sheet

[oxidizer]

Good morning,

I have read through various other threads asking this same question but none seem to check all the boxes I'm looking for. I have a workbook that is updated daily using numbers from another workbook. There are roughly twenty sheets and each of these sheets needs to be sent to different people daily. From another thread, I found this website which is very close to what I need, but instead of sending as an excel format, I'd like it as a PDF or text. One difference from the website example is that some sheets have multiple emails that a copy is to be sent to.

Can anyone point me in the right direction? I'm trying to automate this as the current method involves printing the entire workbook and emailing them from a copier.

 

[Ron de Bruin]

See

Home | Ron de Bruin Excel Automation

Welcome to https://www.rondebruin.nl

www.rondebruin.nl

If you need more help post back

 

[oxidizer]

Thank you for your reply. I am slowly trying to implement this when I get free time. One question I had was the macro that pulls the email from a certain cell (A1 with his code), only allows me to use one email address. Some of these sheets are mailed to multiple people. I have tried typing multiple address like this email@address.com; email2@address.com using a semi-colon like Outlook would use with multiple address, but Excel ends up combining them and only recognizes the first address. Any ideas?

 

[daverunt]

Hi

If you are putting multiple addresses in one cell separated by ; there's no reason it shouldn't work.

'A1 contains:

dave@yahoo.com; fred@yahoo.com; john@yahoo.com

strTo = Range("A1").Value

If you are trying to get them from multiple cells you would use a loop:

Set rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
     
For Each cell In rng

strToo = cell.Value & "; " & strToo


Next