如果您想将 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