Extract email address and copy into .To field

**eckert1961** · 05-07-2009, 05:43 PM

Hello,

I currently have a workbook that I track various projects with and periodically I will need to get updates for them. I modified the following code that I found in this forum, which works pretty well.

Please Login or Register  to view this content.

What I haven't been able to figure out is how to extract the email address from the selected rows, which is in column J, and add it to the .To field in the email. Additionally, if I select multiple rows I would like to test if it's a duplicate address so that only 1 gets copied to the email.

In the attached workbook you'll note that there are just names in column J. This is all I need as the exchange server will resolve the address.

Please let me know if you require any additional information. Thanks.

Regards,
Chris

**eckert1961** · 05-08-2009, 11:18 AM

I found the following from Ron de Bruin's site.

Please Login or Register  to view this content.

What do I need to change so that only the value of the selected row, cell J, is used?

Chris

**eckert1961** · 05-08-2009, 02:04 PM

I'm very surprised that I haven't received a response from anyone. Could one of the forum moderators help me to understand what I might be doing wrong?

I did note that I neglected to mention the version that I'm running.

Excel 2003

Outlook 2003

I really do need assistance with this. Thanks.

Chris

**eckert1961** · 05-08-2009, 11:09 PM

I made some headway. The code in red are the changes that I made.

Please Login or Register  to view this content.

This adds the name of the selected row to the .To field of the email.

I still need to figure out how to deal with multiple rows. I would like to test column J if it's a duplicate name. If it's duplicate than only add the first name and create 1 email. If the 2nd name is different than create another email and include the selected row that's associated with that name, etc.

Additionally, I would like the header row, A8 to L8 to always be added to the email. This way I only need to select the rows of projects that I need updates for. Alternately, I don't mind selecting this row I would just want to test the cell content in column J for the word "LPM". If it finds it then the code should skip to the next cell in column J.

I've attached the revised worksheet.

Any ideas anyone?

Chris

**eckert1961** · 05-10-2009, 11:39 AM

Can anyone assist with this? I've never had no responses before so I'm a bit confused why no one has replied. Any insight would be appreciated.

Regards,
Chris