Love Timor: Bagaimana Cara Mengirim Email dengan Visual Basic.NET

Bagaimana Cara Mengirim Email dengan Visual Basic.NET

Pernahkah anda membuat aplikasi untuk mengirim email keteman anda? Berikut ini adalah sebuah aplikasi sederhana untuk mengirim email dengan VB.NET :

Jalankan Visual Studio.NET anda

Buat Satu form dan desain seperti dibawah ini :

Atur Properti dari form1 seperti dalam table dibawah ini :

No.	Kontrol	Properties
1.	Label	Name : Label1 Text : Timoresse email
2.	Label	Name : Label2 Text : Dari
3.	Label	Name : Label3 Text : Kepada
4.	Label	Name : Label1 Text : Pesan
5.	Textbox	Name : txtDari Text :
6.	Textbox	Name : txtKepada Text :
7.	Textbox	Name : txtPesan Text :
8.	Button	Name : btnKirim Text : Kirim

Masukan script kode berikut ini :

Imports System.Net.Mail
Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        ' Set the caption bar text of the form.   
        Me.Text = "timoresse.blogspot.com"
    End Sub

  
    Private Sub btnKirim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKirim.Click
        Try
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("timoresse@gmail.com", "cintatimor")
            'kode dalam kurung adalah nama email pengirim dan password' 
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            e_mail = New MailMessage()
            e_mail.From = New MailAddress(txtdari.Text)
            e_mail.To.Add(txtKepada.Text)
            e_mail.Subject = "Email Terkirim"
            e_mail.IsBodyHtml = False
            e_mail.Body = txtPesan.Text
            Smtp_Server.Send(e_mail)
            MsgBox("Email telah terkirim!")

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

Silahkan tekan tombol F5 untuk running program dan lakukan simulasi pengiriman email.

Note : text dari : disi dengan email yang sudah di set didalam script.