Skip to main content
Pelajar Koding

follow us

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 jadwal memakai VB.NET itu sangatlah mudah. Contoh kali ini yaitu pembuatan software untuk pengiriman email yang dibentuk dengan VB.NET.

Ok, kita pribadi 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, alasannya yaitu memang sudah terbiasa memakai versi 2010, tapi no problem apabila Anda beda versi alasannya yaitu pada dasarnya sama)
2. Buat Form sama persis menyerupai ini, perhatikan name pada setiap komponen semoga tidak keliru dikala memasukan kodingnya nanti

3. Klik 2x pada button "kirim!" atau button1 kemudian isikan instruksi 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 jadwal 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 menyerupai 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 alasannya yaitu alasan keamanan, tapi apabila Anda dapat bisa menjaga email Anda dengan baik maka tidak persoalan 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 instruksi 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 yaitu 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

You Might Also Like:

Comment Policy: Silahkan tuliskan komentar Anda yang sesuai dengan topik postingan halaman ini. Komentar yang berisi tautan tidak akan ditampilkan sebelum disetujui.
Buka Komentar