Send Excel Report through Excel mail service

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.