Attach Current Workbook into an Email Message Using Macros In Excel

Want to quickly attach your Excel workbook into an email message with a single click? You can do this with Excel Macros! 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 = "[email protected]"
.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