Hvordan sendes et specifikt diagram i en e-mail med vba i Excel?
Du ved muligvis, hvordan du sender en e-mail via Outlook i Excel med VBA-kode. Men ved du, hvordan du vedhæfter et specifikt diagram i et bestemt regneark i e-mailens brødtekst? Denne artikel viser dig metoden til at løse dette problem.
Send et specifikt diagram i en e-mail i Excel med VBA-kode
Send et specifikt diagram i en e-mail i Excel med VBA-kode
Gør som følger for at sende et specifikt diagram i en e-mail med VBA-kode i Excel.
1. I regnearket indeholder det diagram, du vil vedhæfte i e-mail-kroppen, skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Moduler. Kopier derefter nedenunder VBA-kode til kodevinduet.
VBA-kode: Send et specifikt diagram i en e-mail i 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 = ""
.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
Bemærk: I koden skal du ændre modtagerens e-mail-adresse og e-mail-emnet på linjen .Til = "" og linie .Subject = "Tilføj diagram i Outlook-posttekst" , Sheet1 er arket, der indeholder det diagram, du vil sende, skal du ændre det til dit eget.
3. Tryk på F5 nøgle for at køre koden. I åbningen Kutools til Excel dialogboksen, skal du indtaste navnet på det diagram, du vil vedhæfte i e-mail-brødteksten, og derefter klikke på OK knap. Se skærmbillede:
Derefter oprettes en e-mail automatisk med det angivne diagram vist i e-mail-kroppen som vist nedenstående skærmbillede. Klik på knappen Send for at sende denne e-mail.
Relaterede artikler:
- Hvordan sendes automatisk e-mail baseret på celleværdi i Excel?
- Hvordan indsættes signatur i Outlook-e-mail, når der sendes med vba i Excel?
- Hvordan sender jeg en e-mail på et bestemt tidspunkt på en dag i Excel?
- Hvordan sendes e-mail med HTML-e-mail-krop i Excel?
- Hvordan sendes e-mail med angivet fed / størrelse / farve / understreget tekstformat i Excel?
- Hvordan sendes e-mail uden Outlook i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!