VBA for attaching multiple files to mails

[Big Chris]

I've been using Ron De Bruin's excellent code for mass mailings from Outlook via Excel for some time (See http://www.rondebruin.nl/sendmail.htm - Thanks Ron!) and I'm using the specific code '.Attachments.Add (addthisfile)' to add an attachment, where 'addthisfile' is the path to the file specified in a cell in the worksheet.
It works very well, but I now need to add two attachments and need the user to be able to enter both file paths and names in the same cell in the worksheet. Any idea what the syntax might be for this please?

h:\text.ppt works fine when entered into the cell without any other code. If I also want to send h:\test2.doc, what code should I use?

Thanks in advance for your help.

Chris.

[chergh]

You could use an array.

Add a special character, e.g. ~,#,| etc. between the filenames then use the split function to create an array of attachment paths

So if Cell A1 = "h:\test2.doc|h:\text.ppt"

You would then have something like this:

Please Login or Register  to view this content.

[Big Chris]

Thanks for your help Chergh - can't get it working though

I'm using the text as you say...

Please Login or Register  to view this content.

...and have also try various options such as substituting 'Range("J2")' (which is where the files names and paths are - separated by #) to Range(attachments) where 'attachments' is defined as being the contents of J2.

The files work individually - as always, so the paths and names are correct.

Any other thoughts please?

Thanks again,

Chris.

[chergh]

Use:

Please Login or Register  to view this content.

To help debug and make sure the correct values come out of the array.

Also my original code isn't complete. The attachments.add bit was only meant to illustrate where to place your attachment code.

If you still have issues post the code you are using and include the error messages that are being generated.

[Rehaankhan]

You can add path in different column and use below code. With this you can add multiple attachments

.Attachments.Add Cells(I, 8).Value
.Attachments.Add Cells(I, 9).Value
.Attachments.Add Cells(I, 10).Value
.Attachments.Add Cells(I, 11).Value