Option Explicit
Sub Mail_workbook_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "This Is The TO Email Address"
.CC = ""
.BCC = ""
.Subject = "Workbook Backup"
.Body = "This is the body."
.Attachments.Add ("C:\Users\Wb4im\OneDrive\Desktop\Excel.txt") 'attaches the report to email
'.Send '<-- .Send will auto send email without review
.Display '<-- .Display will show the email first for review
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub