VBA Using Excel to Attach file to Email

Sub Mail_Workbook_1()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "TITLE"
.Body = "CONTENT"
.Attachments.Add ("*FILEPATH*")

.send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

This comfortably sends the email with or without the file attached. What I want is the macro to stop if the file is not locatable or attached.

Information - File name and location will never change - It will get added during the week to be sent every Monday.

This will be run from a VBS script which also works, so set to scheduled task meaning the user shouldn't have to click anything to cancel the email.

What would be ideal is if the macro was cancelled due to no file, they get an email announcing the process failed.

Please Please help as everything I've tried has failed. Thanks in advance.

Dude I love you. Thank you so much