{"id":11301,"date":"2019-12-13T16:54:03","date_gmt":"2019-12-13T15:54:03","guid":{"rendered":"https:\/\/www.myexcelonline.com\/?p=11301"},"modified":"2024-02-06T16:16:53","modified_gmt":"2024-02-06T15:16:53","slug":"attach-current-workbook-into-an-email-message-using-macros-in-excel","status":"publish","type":"post","link":"https:\/\/www.myexcelonline.com\/meo-staging\/blog\/attach-current-workbook-into-an-email-message-using-macros-in-excel\/","title":{"rendered":"Attach Current Workbook into an Email Message Using Macros In Excel"},"content":{"rendered":"

Want to quickly attach your Excel workbook into an email message<\/strong> with a single click? You can do this with Excel Macros<\/a>!<\/p>\n

Make sure your Excel has the Developer Tab enabled following\u00a0this tutorial<\/a>.<\/p>\n

I explain how you can do this below step by step!<\/p>\n

What does it do?<\/strong><\/em><\/p>\n

Attach your current workbook into an Outlook email<\/a> message<\/p>\n

Copy Source Code:<\/strong><\/em><\/p>\n

\r\n\r\nSub AttachWorkbookIntoEmailMessage()\r\n\r\nDim OutlookApp As Object\r\nDim OutlookMail As Object\r\nSet OutlookApp = CreateObject(&amp;quot;Outlook.Application&amp;quot;)\r\nSet OutlookMail = OutlookApp.CreateItem(0)\r\n\r\n'Let us create the email message and display it\r\n'Make sure to change the parameters below\r\nWith OutlookMail\r\n.To = &amp;quot;support@myexcelonline.com&amp;quot;\r\n.Subject = &amp;quot;Have a look at this workbook&amp;quot;\r\n.Body = &amp;quot;Hey John, Could you help out on this?&amp;quot;\r\n.Attachments.Add ActiveWorkbook.FullName\r\n.Display\r\nEnd With\r\n\r\nSet OutlookMail = Nothing\r\nSet OutlookApp = Nothing\r\n\r\nEnd Sub\r\n\r\n<\/pre>\n
Final Result:\u00a0<\/strong><\/em><\/p>\n
\"Attach<\/p>\n
Exercise Workbook:<\/strong><\/em><\/p>\n
\n