Kako poslati določen grafikon v e-pošti z vba v Excelu?
Morda veste, kako poslati e-pošto prek Outlooka v Excelu s kodo VBA. Vendar, ali veste, kako v telo e-poštnega sporočila priložite določen grafikon na določen delovni list? Ta članek vam bo pokazal način reševanja te težave.
Pošljite določen grafikon v e-poštnem sporočilu v Excelu s kodo VBA
Pošljite določen grafikon v e-poštnem sporočilu v Excelu s kodo VBA
Naredite naslednje, če želite poslati 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. Nato kopirajte spodnjo kodo VBA v okno Code.
Koda VBA: Pošljite 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) '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
Opombe: V kodi spremenite prejemnikov e-poštni naslov in zadevo e-pošte v vrstici .To = "" in črta .Subject = "Dodaj grafikon v telo pošte Outlook" , Sheet1 je list, ki vsebuje grafikon, ki ga želite poslati, ga spremenite v svojega.
3. Pritisnite F5 tipko za zagon kode. V uvodu Kutools za Excel v pogovorno okno vnesite ime grafikona, ki ga boste priložili v telo e-pošte, in nato kliknite OK . Oglejte si posnetek zaslona:
Nato se e-poštno sporočilo samodejno ustvari z navedenim grafikonom, ki se prikaže v telesu e-pošte, kot je prikazano spodaj. Za pošiljanje tega e-poštnega sporočila kliknite gumb Pošlji.
Sorodni članki:
- Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
- Kako vstaviti podpis v e-poštno sporočilo Outlooka pri pošiljanju prek vba v Excelu?
- Kako poslati e-pošto ob določenem času dneva v Excelu?
- Kako poslati e-pošto z e-poštnim telesom HTML v Excelu?
- Kako poslati e-pošto z navedeno krepko / velikostjo / barvo / podčrtano obliko besedila v Excelu?
- Kako poslati e-pošto brez Outlooka v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!