Email Ranges To Different Recipients

I found the following macro after much digging and got it to work for me, but I'd like to go one better. Currently it sends a simple breakdown of orders that need to be placed. The data lies in a sheet called "Orders" where column A is the vendor name and column B is the order total.

This data is pulled from numerous other sheets, one for each vendor. What would be awesome is if I could send each vendor an email consisting of:

1. Item Number - Column C
2. Item Description - Column D
3. My Cost - Column F
4. Quantity to Order - Column J
5. Order Total - Column K

The complications I've thought of so far:

1. Each sheet is an inventory for the items we have from that vendor. It could be just a few items, or it could be two hundred.
2. There is one row per item, but not every item will have need to be ordered. I don't want an item to be included in the email unless there is an order quantity in column J associated with it.
3. Each sheet should be emailed to a different address which I'll put in A1 for that sheet.

I'm thinking I should do this under each sheet so I can just hit a button on that vendor's sheet and send each order independently.

Code:

Sub LNotesEmailPartsOrders()
Dim NSession As Object
Dim NDatabase As Object
Dim NUIWorkSpace As Object
Dim NDoc As Object
Dim NUIdoc As Object

[Code]....