1. Buatlah Project baru dengan menggunakan templates Windows Form Aplication beri nama SendEmail_IbnuImam
2. Buatlah tampilan seperti gambar diatas!
3. Ubah properti dari komponen - komponen berikut ini :
Form
Name :FormSendEmail
Text :Form Send Email
Textbox disebelah “Email Address”
Name :EmailAddress
Textbox disebelah “Password”
Name :Password
PasswordChar :#
Combobox disebelah “Pilih Provider Email”
Name :Provider
Item :Yahoo
:Gmail
:Live
Textbox “Host”
Name :Host
Text :Host
ReadOnly :True
Textbox “Port”
Name :Port
Text :Port
ReadOnly :True
Textbox disebelah “Email Tujuan”
Name :EmailTujuan
Textbox dibawah “Subject”
Name :Subject
Textbox dibawah “Pesan”
Name :Pesan
ScrollBars :Both
Button Kirim
Name :ButtonKirim
Text :Kirim
Button Exit
Name :ButtonExit
Text :Exit
4. View code untuk form1.vb, diatas Public Class FormSendEmail tambahkan program berikut ini :
Imports System.Net.Mail
5. Pada komponen ButtonKirim buat method click dengan program sebagai berikut :
Try
Dim tujuan As New SmtpClient()
Dim email As New MailMessage()
tujuan.Credentials = New Net.NetworkCredential(EmailAddress.Text, Password.Text)
tujuan.Host = Host.Text
tujuan.Port = Port.Text
tujuan.EnableSsl = True
email.From = New MailAddress(EmailAddress.Text)
email.To.Add(EmailTujuan.Text)
email.Subject = Subject.Text
email.Body = Pesan.Text
tujuan.Send(email)
MsgBox("Pesan Terkirim", MsgBoxStyle.OkOnly, "Status")
Catch ex As Exception
MsgBox("Pesan Gagal Dikirim", MsgBoxStyle.OkOnly, "Status")
End Try
6. Pada komponen Provaider (Combobox) buat method dengan program sebagai berikut :
If Provider.Text = "Yahoo" Then
Host.Text = "smtp.bizmail.yahoo.com"
Port.Text = 25
End If
If Provider.Text = "Gmail" Then
Host.Text = "smtp.gmail.com"
Port.Text = 587
End If
If Provider.Text = "Live" Then
Host.Text = "smtp.live.com"
Port.Text = 587
End If
7. Pada komponen ButtonExit buat method click dengan program sebagai berikut :
End
8. Program selesai dibuat saatnya dijalankan.
Semoga bermanfaat.. terutama buat teman2 TI-2C Poltekpos.. heeee...
