Loncat ke daftar isi utama

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.

doc mengirim email yang dipersonalisasi 1

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


panah gelembung kanan biru 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:

doc mengirim email yang dipersonalisasi 2

2. di Pilih Sumber Data jendela, pilih buku kerja yang menyertakan rentang data yang ingin Anda gunakan, dan klik Open tombol, lihat tangkapan layar:

doc mengirim email yang dipersonalisasi 3

3. Yang akan datang Pilih Tabel kotak dialog, pilih lembar kerja dengan kisaran data yang Anda butuhkan, lalu klik OK tombol, lihat tangkapan layar:

doc mengirim email yang dipersonalisasi 4

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 «».

doc mengirim email yang dipersonalisasi 5

(2.) Lanjutkan mengetik pesan Anda dan masukkan Kode registrasi ke tempat yang Anda butuhkan, lihat tangkapan layar:

doc mengirim email yang dipersonalisasi 6

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:

doc mengirim email yang dipersonalisasi 7

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.

doc mengirim email yang dipersonalisasi 8

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!

doc mengirim email yang dipersonalisasi 18 1


panah gelembung kanan biru 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:

doc mengirim email yang dipersonalisasi 9

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.


panah gelembung kanan biru 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:

doc mengirim email yang dipersonalisasi 9

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:

doc mengirim email yang dipersonalisasi 9

4. Kemudian ketik badan pesan Anda ke dalam kotak yang Anda butuhkan, lihat tangkapan layar:

doc mengirim email yang dipersonalisasi 9

5. Setelah menyelesaikan badan email, pilih mode kirim yang Anda inginkan, Anda dapat mengirim dengan menggunakan Outlook atau server yang Anda tentukan, lihat screesnhot:

doc mengirim email yang dipersonalisasi 9

Note: Jika Anda ingin menggunakan server lain, klik Pengaturan Server Keluar untuk mengatur mode pengiriman ke mode Anda sendiri, lihat screesnhot:

doc mengirim email yang dipersonalisasi 9

6. Terakhir, klik Kirim tombol untuk mengirim email, setelah selesai, sebuah kotak prompt akan muncul untuk mengingatkan Anda tentang status pengiriman. lihat screesnhot:

doc mengirim email yang dipersonalisasi 9

Klik Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Demo: Kirim email massal yang dipersonalisasi ke daftar dari Excel melalui Outlook

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Artikel terkait:

Bagaimana cara mengirim email ke beberapa penerima dalam daftar dari Excel melalui Outlook?

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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 kte 201905


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
Sub SendEm()

Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row

Set Mail_Object = CreateObject("Outlook.Application")

For i = 2 To lr

With Mail_Object.CreateItem(o)

.Subject = Range("B" & i).Value

.To = Range("A" & i).Value



.Body = Range("C" & i).Value

.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)

.Send



'.display 'disable display and enable send to send automatically

End With

Next i

MsgBox "E-mail successfully sent", 64

Application.DisplayAlerts = False

Set Mail_Object = Nothing

End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations