Auto add attachment

[Agbrooker]

Hi was hoping someone could help, I have managed to get excel to auto email when saving, but is it possible to automatically attache the excel file to the email as well.

Thanks in advance

 

[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 = "myemail@yahoo.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test"
        .Body = ""
        .Attachments.Add (Application.ActiveWorkbook.FullName) '<------- This line attaches the workbook to the email
        
        '.Send
        .display
    End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub