Cara Mengirim Email dari Daftar Excel (2 Cara Efektif)

Hugh West

02-10-2023 Excel Tingkat Lanjut
  • Bagikan Ini
Hugh West

Saat Anda perlu mengirim email massal ke sekelompok besar orang, Anda memerlukan proses otomatis yang dapat menangani tugas berulang dengan cepat. Excel dengan daftar email adalah cara paling umum untuk mengirim email massal. Jadi, dalam tutorial ini, kami akan menunjukkan kepada Anda cara mengirim email dari file Excel daftar secara otomatis ke sejumlah besar orang.

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

Kirim Email.xlsm

2 Pendekatan Praktis untuk Mengirim Email dari Daftar Excel

Kami telah menyertakan kumpulan data dengan beberapa nama orang, serta email dan nomor registrasi mereka, pada gambar di bawah ini. Dari Excel kita harus mengirim email ke setiap individu. Untuk mencapai hal ini, kita akan menggunakan Gabungan Surat Microsoft Word fungsi , diikuti oleh VBA kode untuk mengirim email ke individu yang disukai dari daftar yang ada.

1. Terapkan Fungsi Gabungan Surat untuk Mengirim Beberapa Email dari Daftar Excel

⇒ Langkah 1: Buka File Word Baru

  • Buka tempat kosong Kata dokumen.
  • Klik pada Surat tab.
  • Dari Pilih Penerima opsi, pilih opsi Gunakan Daftar yang Sudah Ada pilihan.

⇒ Langkah 2: Tautkan Daftar Excel ke File Word

  • Pilih Excel file di mana Anda telah membuat daftar dan klik pada Terbuka untuk membuka file.

  • Pilih nomor lembar di mana Anda telah menulis daftarnya.
  • Kemudian, klik OK .

⇒ Langkah 3: Sisipkan Bidang

  • Dari Surat opsi, klik pada Sisipkan Bidang Gabungan untuk memasukkan bidang yang ingin Anda sisipkan.
  • Pertama, masukkan Nama dengan mengkliknya dan pada posisi yang disukai dari surat umum.

  • Seperti gambar yang ditunjukkan di bawah ini, setelah menambahkan Nama akan ditampilkan sebagai variabel nama setiap orang.

  • Demikian pula, tempatkan Reg di mana pun yang Anda inginkan dalam pesan teks.

  • Oleh karena itu, akan muncul seperti gambar yang ditunjukkan di bawah ini.

⇒ Langkah 4: Periksa Hasil Pratinjau

  • Klik pada Hasil Pratinjau untuk melihat pratinjau akhir sebelum mengirim email.
  • Tangkapan layar di bawah ini menunjukkan bagaimana contoh email akan terlihat.

⇒ Langkah 5: Gabungkan Email

  • Untuk menggabungkan email, klik pada tombol Selesai &; Gabungkan pilihan.
  • Untuk membuka Gabungkan ke E-mail kotak, pilih Kirim Pesan Email pilihan.

  • Dalam kotak To, pilih Email pilihan.
  • Ketik baris subjek yang Anda sukai di Baris subjek kotak.
  • Format surat akan menjadi HTML secara default, jadi Anda tidak perlu mengubahnya.
  • Dalam opsi Send Records (Kirim Catatan), klik Semua .
  • Terakhir, klik pada OK untuk mengirim email ke beberapa penerima pada saat yang bersamaan.

  • Akibatnya, semua email akan dikirim melalui email Anda yang terkait Outlook Periksa Outlook opsi sent untuk mengonfirmasi bahwa email telah terkirim.

  • Ketika Anda membuka email yang terkirim, Anda akan melihat bahwa setiap bidang diisi dengan informasi orang tertentu.

Catatan. Microsoft Outlook Jika Anda menggunakan aplikasi mailing lain, Anda tidak akan dapat mengirim email dengan prosedur ini.

Baca selengkapnya: Cara Mengirim Email Secara Otomatis Saat Kondisi Terpenuhi di Excel

Bacaan Serupa

  • Cara Mengirim Spreadsheet Excel yang Dapat Diedit melalui Email (3 Metode Cepat)
  • [Terpecahkan]: Bagikan Buku Kerja Tidak Muncul di Excel (dengan Langkah Mudah)
  • Kirim Email Pengingat Secara Otomatis dari Lembar Kerja Excel Menggunakan VBA
  • Cara Melihat Siapa yang Ada di File Excel Bersama (Dengan Langkah Cepat)
  • Cara Mengaktifkan Bagikan Buku Kerja di Excel

2. Jalankan Kode VBA untuk Mengirim Email dari Pemilihan Rentang

Dengan berkah dari VBA Anda dapat membuat program untuk mengirim email dari sebuah Excel Ikuti langkah-langkah yang diuraikan di bawah ini untuk melakukan tugas tersebut.

⇒ Langkah 1: Buat Modul

  • Untuk membuka Makro VBA , tekan Alt + F11 .
  • Klik pada Sisipkan tab.
  • Pilih Modul untuk membuat opsi Modul .

⇒ Langkah 2: Tempelkan Kode VBA

  • Di dalam Modul , tempelkan yang berikut ini Kode VBA . 
 #If VBA7 And Win64 Then 'Ptr digunakan untuk mengubah untuk operasi 32 bit ke 64 bit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Declare variabel DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Pilih range pilih adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Buat kotak Input untuk pemilihan range Set xIntRg = Application.InputBox("Silahkan Input range data Excel:","ExcelWIKI", xSelectTxt, , , , , , 8) 'Terapkan kondisi If untuk menentukan nomor kolom untuk operasi If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Tampilkan hasilnya di kotak msg karena tidak memenuhi kondisi MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'Terapkan For loop untuk menjalankan operasi di setiap baris secara individual For k = 1 To xIntRg.Rows.Count' Kumpulkan alamat email dan set ke variabel xMailAdd = xIntRg.Cells(k, 2) ' Berikan subjek untuk Email xRegCode = "No Registrasi ExcelWIKI" ' Ketik isi email xBody = "" ' Sisipkan Nama dengan variabel xIntRg xBody = xBody & "Salam " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & "Berikut ini adalah No Registrasi ExcelWIKI Anda" ' InsertNo. registrasi dengan variabel xIntRg xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Kami sangat senang Anda berkunjung ke situs kami, tetap dukung kami." & vbCrLf xBody = xBody & "Tim ExcelWIKI" ' Tentukan spasi dengan (hex) xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Tentukan untuk mengganti carriage return dengan (hex) xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' Buat URL Link xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' Gunakan Link untuk mulai mengirim email ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' interval tiga detik untuk mengirim penekanan tombol Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub

⇒ Langkah 3: Jalankan Program

  • Tekan F5 untuk menjalankan program.
  • Pilih kisaran dalam kotak input.
  • Klik OK untuk mengirim email.

  • Hasilnya, pratinjau pengiriman email akan muncul, seperti ditunjukkan pada gambar di bawah ini.

  • Terakhir, Anda bisa memeriksa email yang terkirim untuk konfirmasi.

Baca selengkapnya: Cara Mengirim Email Jika Kondisi Terpenuhi di Excel (3 Metode Mudah)

Kesimpulan

Saya harap artikel ini telah memberi Anda tutorial tentang cara mengirim email massal dari Excel Semua prosedur ini harus dipelajari dan diterapkan pada dataset Anda. Lihatlah buku kerja latihan dan uji keterampilan ini. Kami termotivasi untuk terus membuat tutorial seperti ini karena dukungan Anda yang berharga.

Silakan hubungi kami jika Anda memiliki pertanyaan. Juga, jangan ragu untuk meninggalkan komentar di bagian di bawah ini.

Kami, para Exceldemy Tim, selalu responsif terhadap pertanyaan Anda.

Tetaplah bersama kami dan teruslah belajar.

Postingan sebelumnya Cara Menambahkan 30 Hari ke Tanggal di Excel (7 Metode Cepat)
Postingan berikutnya Cara Mengonversi Waktu Desimal ke Jam dan Menit di Excel

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.