Как отправить конкретную диаграмму по электронной почте с помощью vba в Excel?

Возможно, вы знаете, как отправить электронное письмо через Outlook в Excel с кодом VBA. Однако знаете ли вы, как прикрепить конкретную диаграмму на определенном листе к тексту электронного письма? Эта статья покажет вам способ решения этой проблемы.

Отправить конкретную диаграмму по электронной почте в Excel с кодом VBA

Отправить конкретную диаграмму по электронной почте в Excel с кодом VBA

Чтобы отправить конкретную диаграмму по электронной почте с кодом VBA в Excel, сделайте следующее.

1. На листе, содержащем диаграмму, которую вы хотите вложить в тело письма, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Модули. Затем скопируйте ниже код 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 = "Добавить диаграмму в текст сообщения Outlook" , Sheet1 - это лист, содержащий диаграмму, которую вы хотите отправить, замените ее на свою.

3. нажмите F5 ключ для запуска кода. В открытии Kutools for Excel в диалоговом окне введите имя диаграммы, которую вы прикрепите к тексту сообщения электронной почты, а затем щелкните значок OK кнопка. Смотрите скриншот:

Затем автоматически создается электронное письмо с указанной диаграммой, отображаемой в теле письма, как показано на скриншоте ниже. Пожалуйста, нажмите кнопку «Отправить», чтобы отправить это письмо.

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме:

• Как автоматически отправлять электронную почту на основе значения ячейки в Excel?
• Как вставить подпись в электронную почту Outlook при отправке по vba в Excel?
• Как отправить электронное письмо в определенное время суток в Excel?
• Как отправить электронное письмо с телом электронной почты HTML в Excel?
• Как отправить электронное письмо с указанным полужирным / размером / цветом / подчеркнутым текстовым форматом в Excel?
• Как отправить электронную почту без Outlook в Excel?