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="/%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

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.

Datgloi Excel Magic gyda Kutools AI

• Cyflawni Smart: Perfformio gweithrediadau celloedd, dadansoddi data, a chreu siartiau - i gyd wedi'u gyrru gan orchmynion syml.
• Fformiwlâu Custom: Cynhyrchu fformiwlâu wedi'u teilwra i symleiddio'ch llifoedd gwaith.
• Codio VBA: Ysgrifennu a gweithredu cod VBA yn ddiymdrech.
• Dehongli Fformiwla: Deall fformiwlâu cymhleth yn rhwydd.
• Cyfieithiad Testun: Torri rhwystrau iaith o fewn eich taenlenni.

Gwella'ch galluoedd Excel gydag offer wedi'u pweru gan AI. Lawrlwytho Nawr a phrofi effeithlonrwydd fel erioed o'r blaen!

Erthyglau cysylltiedig:

• Sut i anfon e-bost yn awtomatig yn seiliedig ar werth celloedd yn Excel?
• Sut i fewnosod llofnod yn e-bost Outlook wrth anfon trwy vba yn Excel?
• Sut i anfon e-bost ar amser penodol o'r dydd yn Excel?
• Sut i anfon e-bost gyda chorff e-bost HTML yn Excel?
• Sut i anfon e-bost gyda fformat testun trwm / maint / lliw / tanlinellu penodol yn Excel?
• Sut i anfon e-bost heb Outlook yn Excel?