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
Bookmarks