Sending Attachment from Excel through Outlook

I just tried this yesterday and it worked fine. Now it's not working. Can anyone shed some insight? It goes through the entire code but I don't see it sending an email from Outlook.


'Code updated for Outlook 2010'
Dim OutlookApp As Outlook.Application
Dim MItem As Object
Dim UserId As String

Set OutlookApp = New Outlook.Application

Set MItem = OutlookApp.CreateItem(olMailItem)

On Error Resume Next
With MItem
.To = "strTo"
.Subject = strSubject
.BodyFormat = olFormatHTML
.HTMLBody = strMessageBody
.Attachments.Add strAttachmentPaths
.Send
End With
On Error GoTo 0

Set OutlookApp = Nothing