VBA Code to Add Workbook to a Mail Attachment in Excel

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)
    ' Clean up objects
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

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.

Leave a Comment