Cara Membuat Software Pengirim Email Dengan VB.NET

Membuat software untuk mengirim email melalui VB.NET sebenarnya sangatlah mudah. Pada pembahasan sebelumnya saya pernah mengatakan membuat program menggunakan VB.NET itu sangatlah mudah. Contoh kali ini adalah pembuatan software untuk pengiriman email yang dibuat dengan VB.NET.

Ok, kita langsung saja masuk ke tutorianya.

Step By Step Membuat Software Pengiriman Email Dengan VB.NET

1. Buka VB.NET (disini saya masih menggunakan VB.NET 2010, karena memang sudah terbiasa menggunakan versi 2010, tapi no problem apabila Anda beda versi karena intinya sama)
2. Buat Form sama persis seperti ini, perhatikan name pada setiap komponen agar tidak keliru saat memasukan kodingnya nanti

3. Klik 2x pada button "kirim!" atau button1 lalu isikan kode berikut
 Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("emaillu@gmail.com", "passwordemaillu")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            e_mail = New MailMessage()
            e_mail.From = New MailAddress("emaillu@gmail.com")
            e_mail.To.Add(TextBox1.Text)
            e_mail.Subject = TextBox2.Text
            e_mail.IsBodyHtml = False
            e_mail.Body = RichTextBox1.Text
            Smtp_Server.Send(e_mail)
            MsgBox("Mail Sent")

        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try

Penjelasan : 
Untuk yang berwarna merah silahkan ganti dengan email gmail Anda
Untuk yang berwarna biru silahkan ganti dengan password email gmail Anda

Sebelum Anda mencoba merunning program ini, silahkan login dulu ke gmail Anda. Lalu masuk ke link ini :
https://g.co/allowaccess
Lalu ubah menjadi ON.

Penjelasan : Tanpa Anda mengubah menjadi ON, maka Anda tidak akan bisa mengirim email via aplikasi seperti yang kita buat di VB.NET ini. Apabila Anda sudah mengubahnya menjadi ON, maka gmail Anda akan memperbolehkan email Anda untuk mengirimkan email di berbagai aplikasi. Walaupun ini tidak disarankan oleh gmail karena alasan keamanan, tapi apabila Anda bisa bisa menjaga email Anda dengan baik maka tidak masalah Anda mengubah option tadi menjadi ON.

4. Setelah itu jalankan aplikasinya ! Dan masukan To, Subject, dan Message lalu klik kirim.
Apabila berhasil maka akan muncul message box "Mail Sent!". Apabila error maka akan muncul message box berupa errornya.

Penjelasan Kode

Try
x
Catch error_t As Exception
           y
End Try

Kode diatas digunakan untuk mendeteksi error pada kode yang dijalankan (x). Jadi apabila error akan melakukan perintah (y) sedangkan apabila tidak error maka akan melanjutkan perintah berikutnya.

 Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("emaillu@gmail.com", "passwordemaillu")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

Kode diatas tepatnya yaitu Dim Smtp_Server As New SmtpClient digunakan untuk membuat koneksi ke email. smtpclient memiliki beberapa atribut yaitu UseDefaultCredentials, Credentials, Port, EnableSsl, dan Host.

Port 587 adalah port khusus untuk gmail. kalau untuk yahoo saya lupa, silahkan googling hehe.

e_mail = New MailMessage()
            e_mail.From = New MailAddress("emaillu@gmail.com")
            e_mail.To.Add(TextBox1.Text)
            e_mail.Subject = TextBox2.Text
            e_mail.IsBodyHtml = False
            e_mail.Body = RichTextBox1.Text

Sedangkan mailmessage digunakan untuk membuat sebuah pesan email yang memiliki atribut From, To, Subject, IsBodyHtml, & Body.

Smtp_Server.Send(e_mail)

Kode diatas artinya perintah untuk mengirimkan email dengan koneksi smtp tadi dan dengan email tadi.

            MsgBox("Mail Sent")

Kode diatas untuk memunculkan pesan yang berisi "Mail Sent"