Aplikasi Kirim Email Dengan VB .Net

Pada Belajar Visual Basic .Net kali ini akan dibahas mengenai Cara Membuat Aplikasi Kirim Email dengan Visual Basic .Net. Untuk mengikuti tutorial kali ini pastikan anda telah menginstall Software VB .Net baik versi 2005, 2008, 2010, 2012, 2013, maupun 2015.

Berikut langkahnya :
Nyalakan Komputer atau laptop anda
Buka Aplikasi Microsoft Visual Basic .Net
Klik New - Project - Beri nama project sesuai dengan keinginan anda
Jika sudah muncul Form1, silahkan design Form1 seperti gambar dibawah ini :

Baca Juga : Tutorial Lengkap VB .Net 2013

Gambar diatas terdapat : TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, Button1 dan Button2

Kemudian jika sudah mendesign Form1 seperti gambar diatas, silahkan masukan koding dibawah ini :

Imports System.Net.Mail
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox2.PasswordChar = "X"
        Call Kosongkan()
    End Sub
    Sub Kosongkan()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox1.Focus()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("" & TextBox1.Text & "", "" & TextBox2.Text & "")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            e_mail = New MailMessage()
            e_mail.From = New MailAddress(TextBox1.Text)
            e_mail.To.Add(TextBox3.Text)
            e_mail.Subject = TextBox4.Text + "dari www.belajarvb.com"
            e_mail.IsBodyHtml = False
            e_mail.Body = TextBox5.Text
            Smtp_Server.Send(e_mail)
            MsgBox("Email Terkirim")
            Call Kosongkan()
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Jika sudah, silahkan Run atau Jalankan Project Aplikasi Kirim Email Dengan VB .Net Anda
Terima kasih telah berkunjung di Blog BelajarVB.com, kami senang jika anda berkomentar dibawah ini :)