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 = "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
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 = "xrr@163.com" é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 az Excel számára 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 termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza 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!
