Jak wysłać konkretny wykres w wiadomości e-mail za pomocą VBA w programie Excel?
Możesz wiedzieć, jak wysłać wiadomość e-mail przez Outlooka w programie Excel z kodem VBA. Czy wiesz jednak, jak dołączyć określony wykres z określonego arkusza roboczego do treści wiadomości e-mail? Ten artykuł pokaże Ci metodę rozwiązania tego problemu.
Wyślij określony wykres w wiadomości e-mail w programie Excel z kodem VBA
Wyślij określony wykres w wiadomości e-mail w programie Excel z kodem VBA
Wykonaj następujące czynności, aby wysłać konkretny wykres w wiadomości e-mail z kodem VBA w programie Excel.
1. W arkuszu roboczym zawierającym wykres, który chcesz załączyć w treści wiadomości e-mail, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna Code.
Kod VBA: wyślij określony wykres w wiadomości e-mail w programie 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
Note: W kodzie zmień adres e-mail odbiorcy i temat wiadomości e-mail w wierszu .Do = "" i linii .Subject = "Dodaj wykres do treści poczty programu Outlook" , Sheet1 to arkusz zawierający wykres, który chcesz wysłać, zmień go na własny.
3. wciśnij F5 klucz do uruchomienia kodu. W otwarciu Kutools dla programu Excel W oknie dialogowym wprowadź nazwę wykresu, który chcesz załączyć w treści wiadomości e-mail, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:
Następnie wiadomość e-mail jest tworzona automatycznie z określonym wykresem wyświetlanym w treści wiadomości e-mail, jak pokazano poniżej. Kliknij przycisk Wyślij, aby wysłać tę wiadomość e-mail.
Podobne artykuły:
- Jak automatycznie wysyłać wiadomości e-mail na podstawie wartości komórki w programie Excel?
- Jak wstawić podpis do wiadomości e-mail programu Outlook podczas wysyłania przez VBA w programie Excel?
- Jak wysłać wiadomość e-mail o określonej porze dnia w programie Excel?
- Jak wysłać wiadomość e-mail z treścią wiadomości e-mail HTML w programie Excel?
- Jak wysłać wiadomość e-mail z określonym pogrubieniem / rozmiarem / kolorem / podkreśleniem formatu tekstu w programie Excel?
- Jak wysyłać wiadomości e-mail bez programu Outlook w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!