Bagaimana cara mengirim bagan tertentu dalam email dengan vba di Excel?
Anda mungkin tahu cara mengirim email melalui Outlook di Excel dengan kode VBA. Namun, tahukah Anda cara melampirkan bagan tertentu di lembar kerja tertentu ke dalam badan email? Artikel ini akan menunjukkan kepada Anda metode untuk mengatasi masalah ini.
Kirim bagan tertentu dalam email di Excel dengan kode VBA
Kirim bagan tertentu dalam email di Excel dengan kode VBA
Harap lakukan hal berikut untuk mengirim bagan tertentu dalam email dengan kode VBA di Excel.
1. Di lembar kerja berisi grafik yang ingin Anda lampirkan di badan email, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Kode.
Kode VBA: Kirim bagan tertentu dalam email di 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: Di dalam kode, harap ubah alamat email penerima dan subjek email sesuai .Untuk = "" dan garis .Subject = "Tambahkan Bagan di badan surat prospek" , Sheet1 adalah lembar yang berisi grafik yang ingin Anda kirim, silakan ubah menjadi milik Anda.
3. tekan F5 kunci untuk menjalankan kode. Dalam pembukaan Kutools untuk Excel kotak dialog, masukkan nama bagan yang akan Anda lampirkan di badan email, lalu klik OK tombol. Lihat tangkapan layar:
Kemudian email dibuat secara otomatis dengan bagan yang ditentukan ditampilkan di badan email seperti gambar di bawah ini. Silakan klik tombol Kirim untuk mengirim email ini.
Artikel terkait:
- Bagaimana cara mengirim email secara otomatis berdasarkan nilai sel di Excel?
- Bagaimana cara memasukkan tanda tangan ke email Outlook saat mengirim melalui vba di Excel?
- Bagaimana cara mengirim email pada waktu tertentu dalam sehari di Excel?
- Bagaimana cara mengirim email dengan badan email HTML di Excel?
- Bagaimana cara mengirim email dengan format teks tebal / ukuran / warna / garis bawah tertentu di Excel?
- Bagaimana cara mengirim email tanpa Outlook di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!