Bagaimana cara mengirim email dari Excel dengan hyperlink di badan email?
Pernahkah Anda mencoba mengirim email dengan kode VBA di Excel? Dan bagaimana cara menambahkan hyperlink ke teks isi email saat mengirim email? Artikel ini akan membantu menyelesaikan masalah ini.
Masukkan hyperlink ke badan email dengan kode VBA
Masukkan hyperlink ke badan email dengan kode VBA
Kode VBA di bawah ini dapat membantu mengirim email dari Excel dan memasukkan hyperlink tertentu di badan email. Silakan lakukan sebagai berikut.
1. Luncurkan buku kerja Anda, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul, lalu salin kode VBA di bawah ini ke editor Modul.
Kode VBA: Masukkan hyperlink ke badan email
Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "Hi there:" & "<br>" _
& "Please click " & "<a href=" & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
& "Thank you."
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "Email Address"
.CC = "Email Address "
.BCC = " Email Address "
.Subject = "Subject line"
.HTMLBody = .HTMLBody & xStrBody
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub
Catatan:
- Harap ubah konten tubuh dan hyperlink di xStrBody line.
- Ganti "Alamat email" dalam . Untuk, .DC dan.BCC baris dengan alamat email sebenarnya yang akan Anda kirimi email. Jika Anda tidak memerlukan baris CC dan BCC, hapus saja dari seluruh kode, atau tambahkan satu kutipan sebelum baris, seperti 'CC = ”Alamat Email”.
- Ganti "Garis subjek" dalam .Subyek sejalan dengan subjek email Anda sendiri.
3. tekan F5 kunci untuk menjalankan kode. Kemudian email dibuat dengan bidang dan badan tertentu dengan hyperlink terdaftar di dalamnya, klik tombol Kirim untuk mengirimnya.
Terkait artikel
Kirim email secara otomatis berdasarkan nilai sel di Excel
Misalkan Anda ingin mengirim email melalui Outlook ke penerima tertentu berdasarkan nilai sel tertentu di Excel. Misalnya, jika nilai sel D7 di lembar kerja lebih besar dari 200, maka email dibuat secara otomatis. Artikel ini memperkenalkan metode VBA bagi Anda untuk menyelesaikan masalah ini dengan cepat.
Kirim email jika tombol diklik di Excel
Misalkan Anda perlu mengirim email melalui Outlook dengan mengklik tombol di lembar kerja Excel, bagaimana Anda bisa melakukannya? Artikel ini akan memperkenalkan metode VBA untuk mencapainya secara detail.
Kirim email jika tanggal jatuh tempo sudah terpenuhi di Excel
Misalkan tanggal jatuh tempo di kolom C kurang dari atau sama dengan 7 hari (tanggal sekarang 2017/9/13), maka kirimkan email reminder ke penerima yang ditentukan di kolom A dengan konten tertentu di kolom B. Bagaimana cara mencapainya? Metode dalam artikel ini dapat membantu Anda.
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!