如何在Excel中使用VBA通过电子邮件发送特定图表？

您可能知道如何通过Excel中的VBA代码使用Outlook发送电子邮件。但是，您是否知道如何将某个工作表中的特定图表插入到电子邮件的正文中呢？本文将向您展示解决此问题的方法。

使用VBA代码在Excel中通过电子邮件发送特定图表

使用VBA代码在Excel中通过电子邮件发送特定图表

请按照以下步骤操作，以在Excel中使用VBA代码通过电子邮件发送特定图表。

1. 在包含要附加到邮件正文中的图表的工作表中，按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后将以下VBA代码复制到代码窗口中。

VBA代码：在Excel中通过电子邮件发送特定图表

Sub mailHTMLsend()
'Updated by Extendoffice 2018/3/5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xStartMsg As String
    Dim xEndMsg As String
    Dim xChartName As String
    Dim xChartPath As String
    Dim xPath As String
    Dim xChart As ChartObject
    On Error Resume Next
    xChartName = Application.InputBox("Please enter the chart name:", "KuTools for Excel", , , , , , 2)
    If xChartName = "" Then Exit Sub
    Set xChart = Sheets("Sheet1").ChartObjects(xChartName) 'Change "Sheet1" to your worksheet name
    If xChart Is Nothing Then Exit Sub
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xStartMsg = "<font size='5' color='black'> Good Day," & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"
    xEndMsg = "<font size='4' color='black'> Many Thanks," & "<br> <br> </font>"
    xChartPath = Application.ActiveWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    xPath = "<p align='Left'><img src="/%20&%20"cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """  width=700 height=500 > <br> <br>"
    xChart.Chart.Export xChartPath
    With xOutMail
        .To = "xrr@163.com"
        .Subject = "Add Chart in outlook mail body"
        .Attachments.Add xChartPath
        .HTMLBody = xStartMsg & xPath & xEndMsg
        .Display
    End With
    Kill xChartPath
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

注意：在代码中，请更改收件人的电子邮件地址和邮件主题，分别在 .To = "xrr@163.com" 和 .Subject = "Add Chart in outlook mail body" 行中进行修改。 Sheet1 是包含要发送图表的工作表，请根据实际情况进行更改。

3. 按 F5 键运行代码。在弹出的 Kutools for Excel 对话框中，输入要附加到邮件正文中的图表名称，然后单击 确定 按钮。参见截图：

随后会自动创建一封电子邮件，并在邮件正文中显示指定的图表，如下图所示。请点击 发送 按钮发送这封电子邮件。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何根据Excel中的单元格值自动发送电子邮件？
• 如何在Excel中通过VBA发送Outlook邮件时插入签名？
• 如何在Excel中于一天的特定时间发送电子邮件？
• 如何在Excel中发送带有HTML格式邮件正文的电子邮件？
• 如何在Excel中发送具有指定粗体/大小/颜色/下划线文本格式的电子邮件？
• 如何在Excel中不使用Outlook发送电子邮件？