Cara Mengirim Email Dengan Thunderbird Melalui Excel VBA

Saat ini siapa sih yang tidak memiliki email, alamat email bukan merupakah hal yang langka saat ini. Dalam kehidupan modern alamat email Sudah banyak digunakan dalam berbagai kepentingan. Jadi tidak heran jika banyak orang sudah menggunakan Aplikasi untuk email. Selain Menggunakan MS Outlook karena sudah ada bawaan dari Windows , ada juga beberapa orang yang menggunakan Aplikasi pihak ketiga untuk mengirim dan menerima email. salah satunya adalah Mozilla Thunderbird.

Thunderbird banyak dipilih karena tampilannya yang modern dan tentunya Gratis, bukan Software berbayar. Ini yang menjadi Thunderbird banyak digunakan dalam dunia kerja atau bahkan komputer Pribadi sebagai Aplikasi untuk Email.

Cara Mengirim Email Thunderbird Melaui Excel VBA

Excel dengan Macro VBA sebagai bahasa pemrograman untuk melakukan pekerjaan dengan otomatis, tentu bagi beberapa orang yang bekerja berhubungan dengan Email dan terbiasa menggunakan Macro VBA ingin melakukan pengiriman email dengan Data yang ada pada Excel secara otomatis, tanpa harus melakukan copy-paste secara manual. Untungnya hal itu bisa dilakukan dengan Macro VBA.

Sebelum kita membuat script untuk mengirim email melalui Thunderbird dengan VBA saya akan siapkan terlebih dahulu Data Contoh sebagai bahan tutorial kali ini. Pada Worksheet Excel saya sudah siapkan Data sebagai berikut

Setelah datanya kita siapkan, silahkan masukan script dibawah ini kedalam Module. Script dibawah ini yang akan mengirim data tersebut ke thunderbird command melalui VBA

 Visual Basic Editor 

Sub KirimThunderbird()
Rem Auth : Excelnoob.com
Dim thund As String
Dim email As String
Dim cc As String
Dim bcc As String
Dim subj As String
Dim body As String

email = Sheet1.Range("B2").Value
cc = Sheet1.Range("B3").Value
bcc = Sheet1.Range("B4").Value
subj = Sheet1.Range("B5").Value
body = Sheet1.Range("B6").Value

thund = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" & _
        " -compose " & """" & _
        "to='" & email & "'," & _
        "cc='" & cc & "'," & _
        "bcc='" & bcc & "'," & _
        "subject='" & subj & "'," & _
        "body='" & body & "'" & """"

Call Shell(thund, vbNormalFocus)
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "^{ENTER}", True

End Sub

Pada alamat aplikasi thunderbird C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe, silahkan sesuaikan dengan kondisi alamat file pada komputer yang digunakan.

Ketika script diatas dijalankan akan membuka windows thunderbird baru yang kurang lebih seperti dibawah ini.