Bagaimana cara mengirim email dengan badan email HTML di Excel?
Jika Anda ingin mengirim email dengan format HTML body content di Excel, metode dalam artikel ini dapat membantu Anda.
Kirim email dengan badan email HTML dengan kode VBA
Kirim email dengan badan email HTML dengan kode VBA
Silakan lakukan hal berikut untuk mengirim email dengan konten tubuh format HTML di Excel.
1. tekan lain + F11 secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Modul.
Kode VBA: Kirim email dengan badan email HTML di Excel
Sub SendEmailformattext()
'Update by Extendoffice.com
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.Display
.To = xRgVal
.Subject = "Test"
.HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Catatan:
3. klik Tools > Referensi, Periksalah Perpustakaan Objek Microsoft Outlook kotak di Referensi - VAProject kotak dialog, dan kemudian klik OK tombol. Lihat tangkapan layar:
4. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools for Excel kotak dialog, pilih alamat email penerima dan kemudian klik OK .
Kemudian email dengan bidang tertentu dan badan HTML dibuat. Silakan klik Kirim tombol untuk mengirimkannya.
Kirim email dengan mudah melalui Outlook berdasarkan milis yang dibuat:
Grafik Mengirim email kegunaan Kutools for Excel membantu pengguna mengirim email melalui Outlook berdasarkan milis yang dibuat di Excel seperti gambar di bawah ini.
Unduh dan coba sekarang! (30- jalur bebas hari)
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 dengan format teks tebal / ukuran / warna / garis bawah tertentu di Excel?
- Bagaimana cara mengirim email tanpa Outlook di Excel?
- Bagaimana cara mengirim bagan tertentu dalam email dengan vba di Excel?
- Bagaimana cara mengirim email pada waktu tertentu dalam sehari 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 Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
