Add list of numbers to email

I have this macro that sends an email alerts people when changes have been made to to the workbook. I would like to add a feature that list the item numbers that had info changed within the last seven days based upon a date in the A column
I want it to add the item numbers in the D column into the body of the email that the date is within the last seven days. eg. 1234, 2222, 6789... I know how to add stuff to the body of the email, I just am unsure how to compile the list from the spreadsheet. any help would be much appreciated.


Thanks,

Chris