VBA pull data from sheet map to outlook body msg

i have assigned code to send mail through excel in outlook but

but i want assign the body text as sheet range(A3:I10) of pivot this range map to bodytext of every mail from every workbooks.

i have enclosed two files one is mailsender and another sheet which to attach and send contains PIVOT sheet in first tab.