如何从Excel中的指定单元格区域发送电子邮件？

在许多情况下，Excel工作表中的指定内容区域可能对您的邮件沟通有所帮助。本文将介绍一种直接在Excel中将指定区域插入到邮件正文并发送邮件的方法。

从Excel中的指定单元格区域发送电子邮件
使用强大的工具从指定单元格区域发送电子邮件
更多Excel邮件发送教程...

从Excel中的指定单元格区域发送电子邮件

以下VBA代码可以帮助您复制一个区域，并将其直接粘贴到Outlook邮件正文中。请按照以下步骤操作：

1. 在包含需要复制区域的工作表中，同时按下“Alt + F11”键以打开“Microsoft Visual Basic for Applications”窗口。

2. 在打开的“Microsoft Visual Basic for Applications”窗口中，请点击“工具”>“引用”，如下截图所示。

3. 在“引用 - VBAProject”对话框中，请找到并勾选“Microsoft Outlook Object Library”选项，然后点击确定按钮。

4. 点击“插入”>“模块”，然后复制并将以下VBA代码粘贴到模块窗口中。

VBA代码：通过Excel发送带有指定区域的电子邮件

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

注意：

• 1). 请根据需要更改此脚本行中的邮件正文： xEmailBody = "Hi" & vbLf & vbLf & " 您想添加的消息正文" & vbLf & vbLf & xEmailBody & vbNewLine。
• 2). 请在此代码行中指定您的邮件收件人和主题：(.To = happy.xuebi@163.com 和 .Subject = "test")。

5. 按F5键运行代码。在弹出的Kutools for Excel对话框中，请选择需要粘贴到邮件正文中的区域，然后点击确定按钮。参见截图：

6. 现在已创建了一封包含指定收件人、主题、正文和选定Excel区域的邮件，请点击“发送”按钮发送此邮件。参见截图：

注意：该VBA代码仅在您使用Outlook作为邮件程序时有效。

使用强大的工具从指定单元格区域发送电子邮件

如果您不使用Outlook但仍希望在Excel中直接发送带有指定区域数据的邮件，我强烈推荐您使用Kutools for Excel的“发送电子邮件”功能。使用此功能，您只需配置一个电子邮件地址的发件服务器，以后就可以通过这个电子邮件地址直接在Excel中发送邮件。

1. 首先，您需要准备一个包含所需字段的邮件列表。

• 提示：邮件列表必须至少包含两行，且第一行必须是标题（假设您要在Excel中向两个电子邮件地址发送邮件，请输入这两个电子邮件地址，并以“邮箱”为标题，如下截图所示）。
• 
• 或者，您可以使用“创建邮件列表”功能轻松创建邮件列表。

2. 选择要添加到邮件正文中的区域，并按Ctrl + C键进行复制。

3. 选择整个邮件列表（包括标题），点击“Kutools Plus”>“发送电子邮件”。参见截图：

4. 接着会弹出“发送电子邮件”对话框。

• 4.1) 所选邮件列表中的项目会自动填充到相应的字段中（您可以根据需要向邮件列表中添加更多字段）；
• 4.2) 单击邮件正文框，按Ctrl + V键将所选区域的数据粘贴到其中。之后，根据需要添加其他内容；
• 4.3) 取消勾选“使用Outlook发送邮件”框；
• 4.4) 单击“发件服务器设置”按钮。参见截图：

  

5. 接着会弹出“发件服务器(SMTP)设置 – 新建方案”对话框。请填写电子邮件地址及其服务器设置，勾选“保存已发送邮件到”框后指定一个文件夹来保存所有已发送的邮件，然后单击确定按钮保存设置。

6. 当返回到“发送电子邮件”对话框时，单击“发送”按钮发送邮件。

相关文章：

最佳Office办公效率工具

🤖	Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
	热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
	高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
	高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
	列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
	特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
	15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……

Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Kutools for Excel更多详情…… 免费下载……

---

Office Tab为Office带来多标签界面，让您的工作更加轻松

• 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
• 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
• 可提升50%的工作效率，每天为您减少数百次鼠标点击！

Office Tab更多详情…… 免费下载……

---

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

• 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
• 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
• 协同更高效——提升Office应用间的整体工作效率
• 30天全功能试用——无需注册，无需信用卡
• 超高性价比——比单独购买更实惠

Kutools for Office更多详情…… 免费下载……