Bagaimana cara mengirim email massal yang dipersonalisasi ke daftar dari Excel melalui Outlook?
Misalnya, saya memiliki rentang data berikut di lembar kerja yang berisi kolom Nama, Alamat Email, Kode Pendaftaran, dan sekarang, saya ingin mengirim pesan dengan salam yang dipersonalisasi dan Kode Pendaftaran mereka sendiri ke Alamat Email terpisah di kolom A. Untuk mengatasi masalah ini, metode berikut dapat membantu Anda.
Kirim email massal yang dipersonalisasi ke daftar dari Excel dengan fungsi Mail Merge
Kirim email massal yang dipersonalisasi ke daftar dari Excel dengan kode VBA
Kirim email massal yang dipersonalisasi ke daftar dengan lampiran berbeda dengan menggunakan Kutools for Excel
Kirim email massal yang dipersonalisasi ke daftar dari Excel dengan fungsi Mail Merge
Dengan kata-kata Mail Merge fungsi, Anda dapat menyelesaikan pekerjaan ini dengan cepat dan mudah, lakukan langkah demi langkah berikut:
1. Luncurkan dokumen Word kosong baru, lalu klik Ya Surat > Pilih Penerima > Gunakan Daftar yang Ada, lihat tangkapan layar:
2. di Pilih Sumber Data jendela, pilih buku kerja yang menyertakan rentang data yang ingin Anda gunakan, dan klik Open tombol, lihat tangkapan layar:
3. Yang akan datang Pilih Tabel kotak dialog, pilih lembar kerja dengan kisaran data yang Anda butuhkan, lalu klik OK tombol, lihat tangkapan layar:
4. Dan dokumen utama pesan email dan daftar alamat Anda telah terhubung bersama, sekarang, Anda dapat mengedit pesan teks dan menambahkan tempat penampung yang menunjukkan di mana informasi unik akan muncul di setiap pesan.
(1.) Untuk memasukkan nama salam masing-masing, klik Surat > Masukkan bidang penggabungan > Nama, nama yang dipersonalisasi telah disisipkan ke dalam pesan, dan nama bidang diapit oleh «».
(2.) Lanjutkan mengetik pesan Anda dan masukkan Kode registrasi ke tempat yang Anda butuhkan, lihat tangkapan layar:
5. Setelah membuat pesan, Anda dapat mengklik Pratinjau Hasil bawah Mailing tab untuk melihat pratinjau pesan email dan membuat perubahan sebelum Anda benar-benar menyelesaikan penggabungan.
6. Setelah memastikan tidak ada masalah, Anda dapat mengirim email ke penerima yang terpisah, silakan klik Surat > Selesai & Gabungkan > Kirim Pesan Email, lihat tangkapan layar:
7. Kemudian di pop out Bergabunglah dengan E-mail kotak dialog, lakukan operasi berikut:
(1.) Dari Untuk daftar drop-down, silakan pilih Alamat email kolom;
(2.) Anda dapat mengetikkan subjek ke dalam Subjek kotak teks baris;
(3.) Dari Kirim catatan bagian, pilih Semua.
8. Dan kemudian klik OK, email dikirim ke penerima terpisah dengan kode pendaftaran mereka sendiri sekaligus, setelah mengirim email, Anda dapat membuka Outlook Anda untuk memastikan email telah berhasil dikirim.
Kirim email yang dipersonalisasi ke banyak penerima dengan lampiran berbeda:
Dengan Kutools untuk Excel's Mengirim email fitur, Anda dapat dengan cepat mengirim email yang dipersonalisasi ke beberapa penerima dengan lampiran berbeda dari Excel melalui Outlook sesuai kebutuhan. Pada saat yang sama, Anda juga dapat membuat CC atau Bcc pesan ke orang tertentu. Unduh dan uji coba gratis Kutools untuk Excel Sekarang! |
Kirim email massal yang dipersonalisasi ke daftar dari Excel dengan kode VBA
Kecuali fungsi Mail Merge, kode VBA berikut juga dapat membantu Anda, lakukan seperti ini:
1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Kirim email massal yang dipersonalisasi ke daftar dari Excel:
#If VBA7 And Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
Dim xEmail As String
Dim xSubj As String
Dim xMsg As String
Dim xURL As String
Dim i As Integer
Dim k As Double
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count <> 3 Then
MsgBox " Regional format error, please check", , "Kutools for Excel"
Exit Sub
End If
For i = 1 To xRg.Rows.Count
' Get the email address
xEmail = xRg.Cells(i, 2)
' Message subject
xSubj = "Your Registration Code"
' Compose the message
xMsg = ""
xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " This is your Registration Code "
xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
xMsg = xMsg & "Skyyang"
' Replace spaces with %20 (hex)
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
' Replace carriage returns with %0D%0A (hex)
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
' Create the URL
xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Next
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda gunakan, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, email akan dikirim ke alamat terpisah dengan kode pendaftaran masing-masing satu per satu, setelah mengirim email, Anda dapat membuka Outlook Anda untuk memastikan email telah berhasil dikirim.
Note: Dalam kode di atas, Anda dapat mengubah subjek atau pesan tubuh sesuai kebutuhan Anda.
Kirim email massal yang dipersonalisasi ke daftar dengan lampiran berbeda dengan menggunakan Kutools for Excel
Jika Anda memiliki Kutools untuk Excel, Dengan yang Mengirim email fitur, Anda dapat dengan cepat mengirim email yang dipersonalisasi ke beberapa penerima dengan lampiran berbeda sesuai kebutuhan.
Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Setelah menginstal Kutools untuk Excel, lakukan seperti ini:
1. Klik Kutools Ditambah > Mengirim email, lihat tangkapan layar:
2. di Kirim Emials kotak dialog, pilih rentang data yang ingin Anda gunakan, lalu tentukan alamat penerima, lampiran, dan subjek yang Anda butuhkan, lihat tangkapan layar:
3. Di kotak edit, masukkan nama salam individu, silakan pilih Nama dari daftar drop-down, lalu klik Sisipkan Placeholder untuk memasukkan nama ke dalam pesan, lihat tangkapan layar:
4. Kemudian ketik badan pesan Anda ke dalam kotak yang Anda butuhkan, lihat tangkapan layar:
5. Setelah menyelesaikan badan email, pilih mode kirim yang Anda inginkan, Anda dapat mengirim dengan menggunakan Outlook atau server yang Anda tentukan, lihat screesnhot:
Note: Jika Anda ingin menggunakan server lain, klik Pengaturan Server Keluar untuk mengatur mode pengiriman ke mode Anda sendiri, lihat screesnhot:
6. Terakhir, klik Kirim tombol untuk mengirim email, setelah selesai, sebuah kotak prompt akan muncul untuk mengingatkan Anda tentang status pengiriman. lihat screesnhot:
Klik Unduh dan uji coba gratis Kutools untuk Excel Sekarang!
Demo: Kirim email massal yang dipersonalisasi ke daftar dari Excel melalui Outlook
Artikel terkait:
Bagaimana cara mengirim email ke beberapa penerima dalam daftar dari Excel melalui Outlook?
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!