Cara Mengirim Email Massal Menggunakan Visual Basic Script (VBS) dengan Data dari Excel
Otomasi VBS
Cara Mengirim Email Massal Menggunakan Visual Basic Script (VBS) dengan
Data dari Excel
Pendahuluan
Mengirim email massal satu per satu secara manual tentu melelahkan. Visual Basic Script (VBS) adalah solusi sederhana untuk mengotomatisasi pengiriman email tanpa perlu membuka aplikasi lain seperti Outlook atau Excel secara langsung.
Dalam panduan ini, kita akan belajar cara membuat script VBS untuk mengirim email massal dengan sumber data yang diambil dari file Excel.
Persiapan: Menyiapkan File Excel
Buka Microsoft Excel dan buat daftar email dengan format seperti berikut:
A (Nama) | B (Email) | C (Subjek) | D (Pesan) |
---|---|---|---|
Andi | andi@email.com | Promo Spesial | Hai Andi... |
Budi | budi@email.com | Penawaran Terbatas | Halo Budi... |
Siti | siti@email.com | Diskon Hari Ini | Selamat siang Siti... |
Simpan file ini sebagai:
📌 EmailMassal.xlsx di
lokasi
C:\Users\NamaPengguna\Documents
(sesuaikan dengan direktori Anda).
Membuat File VBS untuk Mengirim Email
-
Buka Notepad
-
Salin dan tempel kode berikut ke dalam Notepad:
Dim objExcel, objWorkbook, objSheet Dim objOutlook, objMail Dim i ' Buka Excel dan akses sheet pertama Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\Users\NamaPengguna\Documents\EmailMassal.xlsx") ' Ubah path sesuai lokasi file Anda Set objSheet = objWorkbook.Sheets(1) ' Mulai Outlook Set objOutlook = CreateObject("Outlook.Application") ' Loop melalui setiap baris di Excel (mulai dari baris kedua) i = 2 Do While objSheet.Cells(i, 1).Value <> "" ' Buat email baru Set objMail = objOutlook.CreateItem(0) With objMail .To = objSheet.Cells(i, 2).Value ' Kolom B untuk Email .Subject = objSheet.Cells(i, 3).Value ' Kolom C untuk Subjek .Body = objSheet.Cells(i, 4).Value ' Kolom D untuk Isi Pesan .Send ' Kirim email End With ' Pindah ke baris berikutnya i = i + 1 Loop ' Tutup Excel tanpa menyimpan perubahan objWorkbook.Close False objExcel.Quit ' Bersihkan objek Set objMail = Nothing Set objOutlook = Nothing Set objSheet = Nothing Set objWorkbook = Nothing Set objExcel = Nothing MsgBox "Semua email telah dikirim!", vbInformation, "Sukses"
-
Simpan file sebagai VBS
-
Klik File > Save As
-
Pada Save as type, pilih All Files
-
Beri nama KirimEmail.vbs
-
Simpan di lokasi yang mudah diakses, misalnya C:\Users\NamaPengguna\Documents
-
Menjalankan Script untuk Mengirim Email Massal
-
Klik dua kali file
KirimEmail.vbs
-
Email akan dikirim secara otomatis menggunakan Microsoft Outlook 📧
-
Setelah selesai, akan muncul pesan "Semua email telah dikirim!"
Menjalankan VBS Secara Otomatis dengan Task Scheduler
Agar lebih praktis, Anda bisa menjadwalkan script ini berjalan secara otomatis:
-
Buka Task Scheduler (
Windows + R
, ketiktaskschd.msc
) -
Pilih Create Basic Task
-
Beri nama, misalnya "Kirim Email Massal", klik Next
-
Pilih kapan ingin dijalankan (Daily, Weekly, dll.), klik Next
-
Pilih Start a Program, klik Next
-
Klik Browse, pilih
KirimEmail.vbs
-
Klik Finish
Kini, email massal akan dikirim otomatis sesuai jadwal! 🚀
Kesimpulan
Dengan VBS dan Excel,
Anda bisa mengotomatiskan pengiriman email tanpa perlu coding rumit.
Keuntungan metode ini:
✅ Gratis dan tanpa
software tambahan
✅ Mudah digunakan, cukup
klik 2x file VBS
✅
Bisa dijadwalkan otomatis
dengan Task Scheduler
🔥 Coba sekarang dan buat pengiriman email lebih efisien!