如何从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. 当返回到“发送电子邮件”对话框时，单击“发送”按钮发送邮件。

相关文章：