Cara Menciptakan Software Pengirim Email Dengan Vb.Net

Membuat software untuk mengirim email melalui VB.NET bergotong-royong sangatlah mudah. Pada pembahasan sebelumnya aku pernah menyampaikan menciptakan aktivitas memakai VB.NET itu sangatlah mudah. Contoh kali ini ialah pembuatan software untuk pengiriman email yang dibentuk dengan VB.NET.

Ok, kita eksklusif saja masuk ke tutorianya.

Step By Step Membuat Software Pengiriman Email Dengan VB.NET

1. Buka VB.NET (disini aku masih memakai VB.NET 2010, sebab memang sudah terbiasa memakai versi 2010, tapi no problem apabila Anda beda versi sebab pada dasarnya sama)
2. Buat Form sama persis ibarat ini, perhatikan name pada setiap komponen biar tidak keliru ketika memasukan kodingnya nanti

3. Klik 2x pada button "kirim!" atau button1 kemudian isikan isyarat 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 aktivitas 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 dapat mengirim email via aplikasi ibarat yang kita buat di VB.NET ini. Apabila Anda sudah mengubahnya menjadi ON, maka gmail Anda akan memperbolehkan email Anda untuk mengirimkan email di banyak sekali aplikasi. Walaupun ini tidak disarankan oleh gmail sebab alasan keamanan, tapi apabila Anda dapat bisa menjaga email Anda dengan baik maka tidak duduk kasus Anda mengubah option tadi menjadi ON.

4. Setelah itu jalankan aplikasinya ! Dan masukan To, Subject, dan Message kemudian 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 dipakai untuk mendeteksi error pada isyarat yang dijalankan (x). Makara apabila error akan melaksanakan 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 menciptakan koneksi ke email. smtpclient mempunyai beberapa atribut yaitu UseDefaultCredentials, Credentials, Port, EnableSsl, dan Host.

Port 587 ialah port khusus untuk gmail. jikalau untuk yahoo aku 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 dipakai untuk menciptakan sebuah pesan email yang mempunyai 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" 

Sumber http://komputer67.blogspot.com

Share this post

Berlangganan update artikel terbaru via email: