Excel workbook email macro not working

Hi all,

I have the following commonly used macro to email a workbook via outlook:

Sub Send_Email_Current_Workbook()

ThisWorkbook.Save

Dim OutApp As Object
Dim OutMail As Object

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

On Error Resume Next
With OutMail
.To "jfarr3ll@XX.com"
.Subject = "Timelines Spreadsheet Updated - Subject"
.Body = "Please see attached the updated Timelines Spreadsheet for your reference"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "email sent"
End Sub

however it has stopped working for me and I'm wondering if anyone has any ideas why this might be?

The code worked fine a few weeks ago, but now goes through the process to the end (msgbox pops up), but doesn't seem to send any email.

Hi, comment out On Error Resume Next statement and see what is the error that will be raised

Perhaps you could use this add-in for mailing? Very versatile and works well

It should be

.To = "jfarr3ll@XX.com"

Actually I don't know how I didn't see it right from the beginning.