APLIKASI SEND EMAIL (SMTP) menggunakan VB.net

ini merupakan contoh sederhana dari aplikasi pengirim email menggunakan SMPT,
langsung saja dech ke coding and SCRT nya,,

 

aplikasi ini menggunakan namespace System.Net.Mail
langsung saja tak kasih lihat scriptnya :
Imports System.Net.Mail
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim tujuan As New SmtpClient()
Dim imail As New MailMessage()
tujuan.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
tujuan.Host = TextBox6.Text
tujuan.Port = TextBox7.Text
tujuan.EnableSsl = True
imail.From = New MailAddress(TextBox1.Text)
imail.To.Add(TextBox3.Text)
imail.Subject = TextBox4.Text
imail.Body = TextBox5.Text
tujuan.Send(imail)
MsgBox(“Pesan Terkirim”, MsgBoxStyle.OkOnly, “Status”)
Catch ex As Exception
MsgBox(“Pesan Gagal Dikirim / mungkin smtp atau portnya tidak cocok”, MsgBoxStyle.OkOnly, “Status”)
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = “gmail” Then
TextBox6.Text = “smtp.gmail.com”
TextBox7.Text = 587
End If
If ComboBox1.Text = “live” Then
TextBox6.Text = “smtp.live.com”
TextBox7.Text = 587
End If
End Sub
End Class
mohon maaf sebelumnya kalo ada kata2 yang salah, maklum saya masih newbie dalam hal ini, thank atas bantuannya, akhirnya tugas kuliah saya selesai juga.