Sub mcr1()
Dim OutApp As Object
Dim OutMail As Object
Dim WB As Object
Dim WB2 As Object

 Application.DisplayAlerts = False

 Set WB2 = Workbooks.Open("C:\Reporting\Reports_run\datalist_pd.xlsm")
 Application.Run "C:\Reporting\Reports_run\datalist_pd.xlsm!mcr"

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
.To = ""
.Subject = "TEST"
.BODY = "THIS IS TEST"
.Attachments.Add "C:\Reporting\Reports\Statistics\datalisе_Pd_" & Year(Date) & Month(Date) & Day(Date) + ".xlsx"
.SEND
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True

Application.Quit

 Application.Run "C:\Reporting\Reports_run\datalist_pd.xlsm!mcr"