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, ketik taskschd.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!