如果您想将 Excel 工作表作为电子邮件发送，而不是将其作为附件添加到电子邮件中，您可以使用本文介绍的两种方法。
有时，与将 Excel 文件作为附件附加到电子邮件中不同，您可能希望直接在电子邮件正文中插入 Excel 工作表，换句话说，将其作为电子邮件发送。 针对这一需求，您可以采用以下两种方式中的一种，具体取决于您是使用 MS Excel 还是 MS Outlook 发送。 现在继续阅读以获取详细操作。
方法一：用Excel发送
首先，打开源 Excel 文件。
然后单击快速访问工具栏中的向下箭头。
从下拉列表中，您应该选择“更多命令”。
接下来，您应该将“发送到邮件收件人”添加到快速访问工具栏。
首先，在“Choose commands from:”下拉列表中选择“All Commands”。
然后，找到并选择“发送到邮件收件人”命令。
接下来单击中间的“添加”按钮。
将其添加到右侧后，单击“确定”以保存更改。
之后，返回 Excel 主窗口并单击快速访问工具栏中的“发送到邮件收件人”按钮。
在弹出的对话框中，选择“将当前工作表作为消息正文发送”。
稍后将显示一个新的工具栏，如下面的屏幕截图。 现在您可以根据需要编写电子邮件详细信息。
最后，单击“发送此表”按钮以将此表作为电子邮件发送出去。
方法二：在 Outlook 中发送
首先，启动您的 Outlook 程序。
然后按“Alt + F11”键按钮打开 Outlook VBA 编辑器。
随后，打开一个新模块并将以下 VBA 代码复制到其中。
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 = "frank@datanumen.com"
.Subject = objExcelWorkSheet.Name
'Use .Send to send it out directly
.Save
End With
objExcelApp.Quit
End Sub
之后，您可以单击工具栏中的“运行”图标。
立刻，宏将被触发。
然后，您需要将特定 Excel 文件的文件路径复制到输入框中，然后点击“确定”。
最后，将在“草稿”邮件文件夹中保存一封包含正文中的 Excel 工作表的新电子邮件。 你可以像下面的截图一样找到它：
巧妙应对棘手的 PST 问题
由于 Outlook PST 文件容易出错，您可能在 Outlook 中遇到过各种问题。 因此，为了避免痛苦 PST损坏, 为您的 PST 文件进行定期数据备份是明智的。 此外，您必须在附近放置一个强大的修复工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 sql损坏 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com