Several persons initials in one cell, sent to their respective e-mail addresses.

I have been using the code below to send e-mails based on dates (props to paul) when the workbook is opened. What I can't figure out to do it to enter several initials into cell i,12 and have their respective e-mail addresses added to the "Strto" Value.

Example: J.D and D.J are held within an i,12 cell. I would like these to correspond to John.doe@gmail.com and doe.john@gmail.com.

Please Login or Register  to view this content.

Thanks a bunch,

Lacessit

Hi Walleye,

Thanks for helping It won't let me upload a copy of my sheet here at work but I can do it while at home. It seems the Named range I'm creating isn't working? Gives me a 'Type mismatch' error.

Managed to upload it using my phone

Hi Walleye,

I seem to be getting 'Runtime error '-2147221238 (8004010a)' automation error with this line of code?
I've tried creating a named range on a different sheet like you suggested but to no avail.

I have it working with one set of initials now, but when I seperate the initials with a "," and try to add another I get Runtime error '-2147221238 (8004010a)' automation error? I can get the error to not come up, but then the second set of initials in the cell still doesn't get an e-mail?

Please Login or Register  to view this content.

I'm still getting the same error when the initials are grouped as such DD,CJ. When I add a space it doesn't give me the error but doesn't send the e-mail. Any ideas? I ran the attached sheet unedited and still no luck .

AHA! I've made it work but putting the line of code you specified within the intAddress field like so

Please Login or Register  to view this content.

Thanks Walleye you've been a great help. I think this may be solved

Hi Walleye,

I seem to be having a problem with what I believe is this piece of code.

Please Login or Register  to view this content.

My problem is that the code works fine for the sample sheet I sent you but with other sheets it will miss initials and not send e-mails at the end (these sheets have more rows and more dates)

Example: judging by the initials it should be sending 11 e-mails but is only sending 9 - ending the sub after the 9th and ignoring the last 2.

sample sheet.xls

If you need anything let me know, tearing my hair out here >.<

Thanks a lot in advance

Seems to work fine, I'll test it live tomorrow morning.

Thanks again, you've been amazing

Lacessit

Edit: worked perfectly, thanks again for all your help! Now I'm just going to work in a counter with the initials and make a graph with it

Edit: Just in the process of adding an extra column to the namemap and introducting a counter which will track e-mails sent to each initial and having a bit of trouble fitting it in >.<