APLIKASI SEND EMAIL (SMTP) menggunkan VB.net

APLIKASI SEND EMAIL (SMTP) menggunkan VB.net

minggu lalu dosen matakuliah sistem tersebar ngasih tugas nyuruh bikin aplikasi send email dengan SMTP,

lalu saya nanya apa itu SMTP?? maklum ga ngerti, trus kata dosen ntu aplikasinya bisa ngirim email kayak kita ngirim email di yahoo,

tapi aplikasi ini hanya bisa ngirim pesan doank, nah saya malah tambah bingung and belum kepiran mo bikin aplikasinya kayak gimana.

trus saya nanya di forum geeks portal INDC, trus ada yang nge reply,, saya dikasih link blog ini

http://vbnetsample.blogspot.com/2007/06/send-email-with-gmail.html

lalu saya buka, nnn langsung dipraktekin, akhirnya saya bisa juga,,

thank buat mas Ferry Meidianto yang telah ngasih tau linknya,

langsung saya deh saya kasih lihat aplikasi yang saya kembangin,,

for SCRT

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

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class



mohon maaf sebelumnya kalo masih ada yang salah, maklum saya masih newbie dalam hal ini, thank atas bantuannya, akhirnya tugas kuliah saya selesai juga. :D