Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako poslati določen grafikon v e-poštnem sporočilu z vba v Excelu?

Morda boste vedeli, kako poslati e-pošto prek Outlook v Excelu s kodo VBA. Vendar, ali veste, kako dodati določen grafikon na določenem delovnem listu v telo e-pošte? Ta članek vam bo pokazal način reševanja te težave.

Pošiljanje določenega grafikona v e-poštnem sporočilu v Excelu s kodo VBA


Preprosto pošiljanje e-pošte prek Outlook na podlagi ustvarjenega seznama poštnih naslovov:

O Pošlji e-pošto uporabnost Kutools za Excel pomaga uporabnikom, ki pošiljajo e-pošto prek Outlooka na podlagi ustvarjenega seznama poštnih seznamov v Excelu. Glej zaslonski posnetek:

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačno preskusno različico zdaj


Pošiljanje določenega grafikona v e-poštnem sporočilu v Excelu s kodo VBA


Prosimo, naredite, da pošljete določen grafikon v e-poštnem sporočilu s kodo VBA v Excelu.

1. Na delovnem listu je grafikon, ki ga želite priložiti v telo e-pošte, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Potem kopirajte pod kodo VBA v okno Code.

VBA koda: pošlji določen grafikon v e-poštnem sporočilu v Excelu

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)
    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 = ThisWorkbook.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

Opombe: V kodi prosim spremenite prejemnikov e-poštni naslov in zadevo e-pošte .To = "xrr@163.com" in črta .Subject = "Dodaj grafikon v telo pošte pošte" , Sheet1 je list, ki vsebuje grafikon, ki ga želite poslati, spremenite ga sami.

3. Pritisnite F5 ključ za zagon kode. V odprtju Kutools za Excel v pogovornem oknu vnesite ime grafikona, ki ga boste dodali v telo e-pošte, in kliknite OK gumb. Prikaz slike:

Potem se samodejno ustvari e-poštno sporočilo z določenim grafom, ki se v telo e-pošte prikaže kot prikazano spodaj. Prosimo, kliknite gumb Pošlji, da pošljete to e-poštno sporočilo.


Sorodni članki:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    leigh · 1 months ago
    when i enter the chart name the mail doesn't generate the dialog box just closes, any idea what i have done wrong? I have followed each step