Tutorial Mengirim email melalui Visual Basic .NET ini merupakan request (permintaan) teman saya yang menanyakannya melalui facebook. Mengirim email melalui Visual Basic .NET sangatlah mudah, asal mengetahui kode, syarat dan pengaturan pada email itu sendiri, ini merupakan hal yang sangat penting untuk diikuti. Ok tidak usah basa-basi karena saya juga sibuk.. hehe
Ikuti langkah-langkahnya dibawah ini:
1. Buat akun gmail, karena kita akan menggunakan layanan gmail dalam mengirim pesan melalui form Visual Basic .NET nanti (ini saya sesuaikan request dari teman saya).
2. Buat sebuah form pada proyek Visual Basic .NET anda, tambahkan 3 textbox dan satu buah button dan beri nama (TDARI,TKEPADA,TPESAN,BTKIRIM).
3. Copy kode berikut ini ke event button “click” dari proyek Visual Basic .NET anda, atau download saja proyek yang sudah jadi pada link download dibawah jika anda bingung dan ingin yang instan.
Imports System.Net.Mail
Public Class Form1
‘by www.inavb.com
Private Sub BTKIRIM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTKIRIM.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential(“username@gmail.com“, “password“)
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = “smtp.gmail.com”
e_mail = New MailMessage()
e_mail.From = New MailAddress(TDARI.Text)
e_mail.To.Add(TKEPADA.Text)
e_mail.Subject = “Ini admin ”
e_mail.IsBodyHtml = False
e_mail.Body = TPESAN.Text
Smtp_Server.Send(e_mail)
MsgBox(“Email terkirim.. Terima kasih.”)
Catch error_t As Exception
MsgBox(error_t.ToString)
Exit Sub
End Try
End Sub
End Class
Public Class Form1
‘by www.inavb.com
Private Sub BTKIRIM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTKIRIM.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential(“username@gmail.com“, “password“)
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = “smtp.gmail.com”
e_mail = New MailMessage()
e_mail.From = New MailAddress(TDARI.Text)
e_mail.To.Add(TKEPADA.Text)
e_mail.Subject = “Ini admin ”
e_mail.IsBodyHtml = False
e_mail.Body = TPESAN.Text
Smtp_Server.Send(e_mail)
MsgBox(“Email terkirim.. Terima kasih.”)
Catch error_t As Exception
MsgBox(error_t.ToString)
Exit Sub
End Try
End Sub
End Class
4. Ubah “username@gmail.com” dengan email gmail anda, dan rubah pula “password” dengan password gmail anda.
5. Inilah hal yang paling penting yang sering dilupakan oleh orang-orang atau teman-teman saat menggunakan fasilitas kirim email ini. Pastikan security akun google anda memperbolehkan aplikasi lain masuk menggunakan email atau akun anda, karena jika tidak maka anda akan sia-sia membuat program ini.
6. Berikut adalah cara mengizinkan aplikasi lain masuk ke akun google anda:
– Klik link berikut ini: Setting google security.
– Aktifkanlah menu yang memperbolehkan aplikasi lain masuk menggunakan akun anda.
– Selesai.
– Klik link berikut ini: Setting google security.
– Aktifkanlah menu yang memperbolehkan aplikasi lain masuk menggunakan akun anda.
– Selesai.
7. Jalankan proyek dan cobalah mengirim pesan. Yes it works :-p !!
Semoga artikel yang singkat ini dapat membantu anda semua yang ingin membuat aplikasi. Khususnya bagi teman saya yang sudah request tutorial ini. Terima kasih atas requestnya, anda dapat mendownload proyek dan demo videonya pada link dibawah ini.
Semoga artikel yang singkat ini dapat membantu anda semua yang ingin membuat aplikasi. Khususnya bagi teman saya yang sudah request tutorial ini. Terima kasih atas requestnya, anda dapat mendownload proyek dan demo videonya pada link dibawah ini.
No comments:
Post a Comment