Hogyan küldhetünk egy adott diagramot egy e-mailben az vba-val az Excelben?
Lehet, hogy tudsz e-mailt küldeni az Outlook programban az Excel programban VBA kóddal. Tudja azonban, hogyan csatolhat egy adott táblázatot egy bizonyos munkalapon az e-mail törzséhez? Ez a cikk bemutatja a probléma megoldásának módszerét.
Küldjön egy adott diagramot egy e-mailben az Excelben, VBA kóddal
Küldjön egy adott diagramot egy e-mailben az Excelben, VBA kóddal
Kérjük, tegye a következőket, ha egy adott diagramot szeretne elküldeni e-mailben VBA kóddal az Excel programban.
1. A munkalap tartalmazza az e-mail törzséhez csatolni kívánt diagramot, és nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a Kód ablakba.
VBA kód: Egy adott diagram elküldése e-mailben az Excel programban
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
Megjegyzések: Kérjük, a kódban változtassa meg a címzett e-mail címét és az e-mail tárgyát a sorban .To = "" és a vonal .Subject = "Diagram hozzáadása az Outlook levelező törzsében" , Sheet1 az a lap, amely tartalmazza az elküldeni kívánt táblázatot, kérjük, változtassa meg sajátjával.
3. megnyomni a F5 gombot a kód futtatásához. A megnyitón Kutools for Excel párbeszédpanelen írja be a csatolni kívánt diagram nevét az e-mail törzsébe, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
Ezután automatikusan létrejön egy e-mail, a megadott diagram az e-mail törzsében jelenik meg, az alábbi képernyőképen. Az e-mail elküldéséhez kattintson a Küldés gombra.
Kapcsolódó cikkek:
- Hogyan küldhetünk automatikusan e-mailt az Excel cellája alapján?
- Hogyan illesszünk aláírást az Outlook e-mailbe, amikor vba-val küldjük az Excel-ben?
- Hogyan küldhetünk e-mailt a nap meghatározott időpontjában az Excel programban?
- Hogyan küldhetünk e-mailt HTML e-mail törzssel az Excelben?
- Hogyan küldhetünk e-mailt a megadott félkövér / méret / szín / aláhúzás szöveges formátummal az Excelben?
- Hogyan küldhet e-mailt Outlook nélkül az Excel programban?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!













