Jak poslat konkrétní graf v e-mailu s VBA v aplikaci Excel?
Možná víte, jak odeslat e-mail prostřednictvím aplikace Outlook v aplikaci Excel s kódem VBA. Víte však, jak připojit konkrétní graf v určitém listu do těla e-mailu? Tento článek vám ukáže způsob řešení tohoto problému.
Odeslat konkrétní graf v e-mailu v aplikaci Excel s kódem VBA
Odeslat konkrétní graf v e-mailu v aplikaci Excel s kódem VBA
Chcete-li odeslat konkrétní graf v e-mailu s kódem VBA v aplikaci Excel, postupujte takto.
1. V listu obsahujícím graf, který chcete připojit v těle e-mailu, stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna Kód.
Kód VBA: Odeslání konkrétního grafu v e-mailu v aplikaci 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=" & "cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """ width=700 height=500 > <br> <br>"
xChart.Chart.Export xChartPath
With xOutMail
.To = ""
.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
Poznámka: V kódu prosím změňte v řádku e-mailovou adresu příjemce a předmět e-mailu .To = "" a vedení .Subject = "Přidat graf do těla pošty aplikace Outlook" , Sheet1 je list obsahující graf, který chcete odeslat, změňte jej prosím na svůj vlastní.
3. zmáčkni F5 klíč ke spuštění kódu. V otvoru Kutools pro Excel V dialogovém okně zadejte název grafu, který připojíte do těla e-mailu, a poté klikněte na ikonu OK knoflík. Viz screenshot:
Poté se automaticky vytvoří e-mail se zadaným grafem zobrazeným v těle e-mailu, jak je ukázáno níže. Kliknutím na tlačítko Odeslat odešlete tento e-mail.
Související články:
- Jak automaticky odesílat e-maily na základě hodnoty buňky v aplikaci Excel?
- Jak vložit podpis do e-mailu aplikace Outlook při odesílání pomocí VBA v aplikaci Excel?
- Jak odeslat e-mail v určitou denní dobu v aplikaci Excel?
- Jak odeslat e-mail s textem e-mailu HTML v aplikaci Excel?
- Jak odeslat e-mail se zadaným formátem tučného / velkého / barevného / podtrženého textu v aplikaci Excel?
- Jak odeslat e-mail bez aplikace Outlook v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!