Follow these steps to have Excel e-mail the reports for you:
Step1: Open the workbook containing the report you want to send.
Step2: Press [Alt][F11].
Step3: In the Project-VBA Project pane, double-click ThisWorkbook.
Step4: Go to Insert --> Procedure ,Click in the Name text box and enter TestReportEmail. Click OK.
Step5: Add this code in added method for send email.
Dim DistList As Variant
DistList = Array("test1@company_name.com", "test1@company_name.com", "test1@company_name")
ActiveWorkbook.Sendmail Recipients: = DistList
Step6: Press [Alt]Q.
Step7: Press [Alt][F8].
Step8: Click TestReportEmail in the Macro list.
Step9: Click the Options button.
Step10: In the Ctrl+ box, enter m. Click OK.