Want to quickly attach your Excel workbook into an email message with a single click? You can do this with Excel Macros!
Make sure your Excel has the Developer Tab enabled following this tutorial.
I explain how you can do this below step by step!
What does it do?
Attach your current workbook into an Outlook email message
Copy Source Code:
Sub AttachWorkbookIntoEmailMessage()
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
'Let us create the email message and display it
'Make sure to change the parameters below
With OutlookMail
.To = "support@myexcelonline.com"
.Subject = "Have a look at this workbook"
.Body = "Hey John, Could you help out on this?"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Final Result:
Exercise Workbook:
STEP 1: Go to Developer > Code > Visual Basic
STEP 2: Paste in your code and Select Save.
You can change the following fields – To, Subject and Body depending on your preferences. These are marked in yellow.
Close the window afterwards.
STEP 3: Let us test it out!
Go to Developer > Code > Macros
Make sure your macro is selected. Click Run.
With just one click, your Excel Workbook is now attached to the email message!
How to Attach Current Workbook into an Email Message Using Macros In Excel
