If you would like to send an Excel worksheet as an email, instead of adding it to an email as attachment, you can use the two methods introduced in this article.
At times, unlike attaching an Excel file to an email as attachment, you may desire to directly insert an Excel worksheet in the email body, in other words, send it as an email. In response to this requirement, you can apply either of the following 2 means depending on whether you want to send in MS Excel or MS Outlook. Now read on to get the detailed operations.
Method 1: Send in Excel
- At the very outset, open the source Excel file.
- Then click on the down arrow in the Quick Access Toolbar.
- From the drop down list, you should select “More Commands”.
- Next you should add the “Send to Mail Recipient” to the Quick Access Toolbar.
- Firstly, select “All Commands” in “Choose commands from:” drop down list.
- Then, find and select the “Send to Mail Recipient” command.
- Next click on the “Add” button in center.
- After adding it to the right side, click on “OK” to save the changes.
- After that, back to main Excel window and click the “Send to Mail Recipient” button in Quick Access Toolbar.
- In the popup dialog box, select “Send the current sheet as the message body”.
- Later a new toolbar will display, like the following screenshot. Now you can compose the email details as per your needs.
- Finally, click on the “Send this Sheet” button to send out this sheet as email.
Method 2: Send in Outlook
- In the first place, launch your Outlook program.
- Then press “Alt + F11” key buttons to open Outlook VBA editor.
- Subsequently, open a new module and copy the following VBA codes into it.
Sub SendanExcelWorksheetAsEmail() Dim strExcelFile As String Dim objExcelApp As Excel.Application Dim objExcelWorkBook As Excel.Workbook Dim objExcelWorkSheet As Excel.Worksheet Dim objMail As Outlook.MailItem strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx") On Error Resume Next Set objExcelApp = CreateObject("Excel.Application") Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile) Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1") 'Change to your own desired email body objExcelWorkSheet.MailEnvelope.Introduction = "Message Body" Set objMail = objExcelWorkSheet.MailEnvelope.Item With objMail 'Change the recipient and subject as per your needs .To = "firstname.lastname@example.org" .Subject = objExcelWorkSheet.Name 'Use .Send to send it out directly .Save End With objExcelApp.Quit End Sub
- After that, you can click the “Run” icon in the toolbar.
- At once, the macro will be triggered.
- Then you will be required to copy the file path to the specific Excel file into the input box and hit “OK”.
- Finally, a new email containing the Excel worksheet in body will be saved in the “Drafts” mail folder. You can find it like the following screenshot:
Cope with Troublesome PST Issues Tactfully
Due to the fact that Outlook PST file is error prone, you may have encountered a variety of issues in your Outlook. Therefore, in order to avoid painful PST damage, it is wise to make regular data backups for your PST file. Furthermore, you have to keep a potent fix tool in vicinity, like DataNumen Outlook Repair.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql damage and outlook repair software products. For more information visit www.datanumen.com