Can't change code from Columns to Lines

[Darker0ne]

Hello everyone,

I know, title is weird, but this is what happens.
I have a piece of code, that send emails from excel with an attachment.

At the moment, I have to place the data in Excel this way, so each Column is a single email.
A1 is To:
A2 is Subject:
A3 is Body:
A4 is File:

And I want to place data like this, so each line is a single email.
A1 is To B1 is Subject C1 is Body D1 is File

Can you guys please help me ?

Here's the Code:

Please Login or Register  to view this content.

Here is an example in Excel that would explain properly what I need.

Example.xlsx

Tried many things already, but can't get it to work.
I feel it's in front of me on the Offset values, but I don't understand it and can't get it to work like I want to.

Also, if I am not mistaken, that code sends a maximum of 3 emails ( Set rngEntries = ActiveSheet.Range("B1:D1" ). Is there a way to send all emails without a range ? For example, stop if a cell in the " To: " Column is empty ?

Many thanks guys !

[Jim885]

This will do what you requested;

Please Login or Register  to view this content.

[Darker0ne]

Hello.
It gives an error in
" .Attachments.Add rngEntry.Offset(, 3).Value "

Says: "Path does not exist."

Yeah, I placed the path to the files correctly, more then once actually.

[Jim885]

I tested the code with my files and it worked perfectly.
Are you sure your FULL path was placed in the cell?

Here's the exact text I used in Column D and I had no problem.
C:\Users\Jim\Pictures\01\0001.png

The code will also error out if no file path is placed in column D (ie. blank cell)
So every cell in column D must contain a valid file path and file.

[Darker0ne]

I'm testing with 3 files, and it's stuck there, gives that error and does nothing more.
And yeah, all others cells bellow D4 are blank.

I don't understand, the Path to the files is correct :|

[Jim885]

The code also assumes you are not using headers. Thus it starts at A1 like you requested ---
"And I want to place data like this, so each line is a single email.
A1 is To B1 is Subject C1 is Body D1 is File"

If you are using headers, then change this line of code;

Please Login or Register  to view this content.

to this;

Please Login or Register  to view this content.

[Darker0ne]

Ok. Was the headers :|
THANK YOU !
Works Amazingly and will spare me so much time !
Will have to check the code you changed so I can understand it.
Can't thank you enough !

[Jim885]

I'm testing with 3 files, and it's stuck there, gives that error and does nothing more.
And yeah, all others cells bellow D4 are blank.

I don't understand, the Path to the files is correct :|

If you are always sending three files, then add these lines directly underneath the first line that looks like this ... .Attachments.Add

Please Login or Register  to view this content.

And make sure you have the additional file paths in columns E and F

[Darker0ne]

I apologize for my english.
I was testing with 3 entries, but i had headers. Now works perfectly.
I only send one file, but is a personalized file, file x is to person A, and file y is to person b.
But cool, in case i need to send more then one file
Thanks a lot !

[Jim885]

Glad we got it solved.
Please select Thread Tools from the menu link at the top of this page and mark this thread as SOLVED.
And if you don't mind, please check the star on the llower left of this post.
Thanks!