We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
but the only confirmation is seeing an email in the Sent items. Just something to say that it has been sent would be fine, user input is not necessarily needed.
Sub Send_Email_Current_Workbook() 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 = "email@example.com" .CC = "" .BCC = "" .Subject = "XXX Update" .Body = "See attached" .Attachments.Add ActiveWorkbook.FullName .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub