Note: The other languages of the website are Google-translated. Back to English

Sut i anfon siart benodol mewn e-bost gyda vba yn Excel?

Efallai eich bod chi'n gwybod sut i anfon e-bost trwy Outlook yn Excel gyda chod VBA. Fodd bynnag, a ydych chi'n gwybod sut i atodi siart benodol mewn taflen waith benodol i gorff yr e-bost? Mae'r ewyllysiau erthygl hyn yn dangos y dull i chi ddatrys y broblem hon.

Anfonwch siart benodol mewn e-bost yn Excel gyda chod VBA


Anfonwch siart benodol mewn e-bost yn Excel gyda chod VBA


Gwnewch fel a ganlyn i anfon siart benodol mewn e-bost gyda chod VBA yn Excel.

1. Yn y daflen waith sy'n cynnwys y siart rydych chi am ei atodi yn y corff e-bost, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i'r ffenestr Cod.

Cod VBA: Anfonwch siart benodol mewn e-bost yn 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 = "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

Nodyn: Yn y cod, newidiwch gyfeiriad e-bost y derbynnydd a'r pwnc e-bost yn unol .To = "xrr@163.com" a llinell .Subject = "Ychwanegu Siart yn y corff post rhagolwg" , Sheet1 yw'r ddalen sy'n cynnwys y siart rydych chi am ei hanfon, newidiwch hi i'ch un chi.

3. Gwasgwch y F5 allwedd i redeg y cod. Yn yr agoriad Kutools ar gyfer Excel blwch deialog, nodwch enw'r siart y byddwch chi'n ei atodi yn y corff e-bost, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Yna mae e-bost yn cael ei greu yn awtomatig gyda'r siart penodedig yn dangos yn y corff e-bost fel y dangosir isod y screenshot. Cliciwch y botwm Anfon i anfon yr e-bost hwn.


Erthyglau cysylltiedig:

 

 

 


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

 

sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan fyddaf yn nodi enw'r siart nid yw'r post yn cynhyrchu'r blwch deialog yn cau, unrhyw syniad beth rydw i wedi'i wneud yn anghywir? Rwyf wedi dilyn pob cam
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y mater yw na allwn osod enwau ar gyfer Gwrthrychau Siart fel tablau. Mae angen i chi basio'r ID cyfanrif i weithio. Er enghraifft, os mai dim ond 1 siart sydd gennych yn y "Taflen1", ceisiwch basio'r gwerth 1 pan fydd y blwch msg yn ymddangos.

PS: sori am y saesneg drwg :]
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hola como puede enviar por correo, una tabla dinámica, y no un grafico
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gwall yn y cod : "\") + 1) & "" " lled = 700 uchder = 50 Yn y testun trwm dylai'r un canol fod yn goma gwrthdro sengl

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n cynnwys y siart fel atodiad. A oes gennych unrhyw syniad sut i'w gynnwys fel llun yn y corff post ei hun. Diolch, Youssef
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un broblem, unrhyw ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo J,
Mae'r cod wedi'i ddiweddaru. Rhowch gynnig arni. Ymddiheuriadau am yr anghyfleustra.


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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
mi nic sie nie załącza, czy coś tutaj należałoby wpisać jeszcze?
xPath = "co tutaj trzeba wprowadzić?"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Kuba,
Tynnwch y / tag i mewn <img src="/.
Mae'r gwall yn cael ei achosi gan y golygydd yn y wefan.
Sori am yr anghyfleustra.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir