Outlook Mail Automation Modification

Hi All,

I have modified a VBA code from Ron de Bruin Excel Automation.

Its working fine but I want to add something more in this. Please help me to add below steps.

".to" is taking value from column B of excel Sheet 1.
1) So I want ".cc" should take value from column D,
2) ".bcc" should take value from column E and ".
3) ".Subject" should take value from column F.

Below is modified code from http://www.rondebruin.nl/win/s1/outlook/amail6.htm

Please Login or Register  to view this content.

Thanks,
Liz.

Hi there, how to answer your question depends on whether or not there are equal numbers of entries in columns B,D,E? It will also depend on whether these are the only entries on that worksheet and that you want to send the same e-mail to all recipients.

If so, then I would use:

Please Login or Register  to view this content.

Hope this helps.

Liz,

I'm not 100% sure what you want the code to do, some of it appears to be redundant (line 21 for instance, what is it meant to be doing for each cell in column B?).

You are setting the range of the filepath range to encompass all columns between C and Z, which will catch not only file paths but also CCs,BCCs and Subjects. This should be .Range(Cells(2,3),Cells(lastrow,3)).

Declare lastrow as soon as you open the sheet, this means you can use it immediately.

You've changed my suggested code about the '.to' section of the with Outmail section, this won't work as it is only pointing to one cell (as opposed to my method which concatenates all relevant cells in column B.

I'd recommend going over Ron de Bruin's webpage again, step by step, as it is much better than I in explaining e-mail automation. Fundamentally, it boils down to this:

For all parts of the e-mail that have more than one component, saving attachments, (i.e. to,CC, BCC) you can concatenate these into a string, delimited by a semi-colon, then just use that string as the value within the 'With Outmail' section.

As I've answered your initial question, I'd be grateful if you could mark the question as 'solved' and add reputation if any of my advice has helped.

Best,

TKCZBW