receive email automatically when excel file is updated

I created a sample work book named sample08.xls
I have created two rows and saved it. Then i created the macro as you said.
Then i tried to add another row into the sheet and saved it.
Then i checked my email, but no emails.
yes, i checked my out look email(my work email is already configured to outlook and i gave my work email in the code below).

Do you mind checking if the code actually is working?

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim OutApp As Object
    Dim OutMail As Object
    Const SendTo As String = "[email protected]"

    Set OutApp = CreateObject("Outlook.Application")

    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = SendTo
        .Subject = ThisWorkbook.sample08 " has been amended"
        .Body = " add a message here"
        .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Please read the Forum Rules & use Code Tags in future

Youv'e changed this line unnecessarily ThisWorkBook.Name will pick up the workbook name, your code will error & should be red in the VB Editor

       .Subject = ThisWorkbook.sample08 " has been amended"

It should be {code] .Subject = ThisWorkbook.Name & " has been amended"[/code]

If you amend it and have MS OutLook on your sending PC and placed the code in the correct place then it works.