VBA How to send the report by email

[Zayed]

Hi All,
I am new in VBA and I have questions about:

How to send the report automation by email to user.

Regards,

 

[Logit]

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