VBA code that you can use to add a workbook as an attachment to an email in Excel.
VBA Code:
Sub AddWorkbookToMailAttachment()
Dim outlookApp As Object
Dim outlookMail As Object
Dim attachmentPath As String
' Set the path of the workbook to attach
attachmentPath = "C:\Path\To\Workbook.xlsx" ' Change the path and filename as desired
' Create a new Outlook application instance
Set outlookApp = CreateObject("Outlook.Application")
' Create a new mail item
Set outlookMail = outlookApp.CreateItem(0)
' Add the workbook as an attachment to the mail
outlookMail.Attachments.Add attachmentPath
' Customize the email subject, body, recipient, etc.
outlookMail.Subject = "Workbook Attachment"
outlookMail.Body = "Please find attached the workbook."
outlookMail.To = "recipient@example.com" ' Change the recipient email address as desired
' Display the mail for review before sending (optional)
outlookMail.Display
' Clean up objects
Set outlookMail = Nothing
Set outlookApp = Nothing
End Sub
Join Our WhatsApp Group
Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]
Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.
