Cara membuat Gmail Sender di vb.net 2010

Bertemu lagi dengan kang salam, sekarang saya akan membahas bagaimana cara membuat gmail sender.

Jangan basa basi lagi silahkan ikuti langkah - langkah nya....

1. Kita buka dulu Microsoft Visual Studio 2010 atau yang lain terus klik New Project...

2. Setelah itu isi nama sesuai keinginan anda saja..

3. Atur form seperti gambar di bawah ini atau sesuai keinginan anda :

4. Jangan sampai lupa tambahkan timer1 seperti gambar di bawah ini :

5. Selanjutnya double klik form untuk memasukan coding Imports di bawah ini, tepat di atas Public Class Form1 :

Imports System.Web

Imports System.IO

Imports System.Net.Mail

Apabila anda belum paham silahkan lihat gambar di bawah ini :

6. Setelah itu kita masukan coding berikutnya di form1_load :

bKirim.Enabled = False

Button1.Enabled = False

Timer1.Start()

Seperti gambar di bawah ini :

7. Setelah itu double klik button Kirim Email masukan coding di bawah ini :

Dim mail As New MailMessage

Dim smtpSrv As New SmtpClient

Dim pengirim As String = tbNama.Text & "@gmail.com"

smtpSrv.Credentials = New Net.NetworkCredential(pengirim, tbPass.Text)

smtpSrv.Port = 587

smtpSrv.Host = "smtp.gmail.com"

smtpSrv.EnableSsl = True

mail.From = New MailAddress(pengirim)

mail.To.Add(tbTujuan.Text)

mail.Subject = tbTema.Text

mail.Body = tbPesan.Text

smtpSrv.Send(mail)

8. Double klik Timer1 masukan coding di bawah ini :

If tbNama.Text <> "" And tbPass.Text <> "" And tbTujuan.Text <> "" And tbTema.Text <> "" And tbPesan.Text <> "" Then

bKirim.Enabled = True

Button1.Enabled = True

End If

9. Double klik button hapus masukan coding di bawah ini :

tbPesan.Clear()
tbPesan.Focus()

untuk button keluar untuk coding nya tambahkan END saja oke ;)

10. Setelah semua selesai maka kita klik run atau tekan F5, seperti gambar di bawah ini :

Semoga berhasil nya sobat blogger, kalau ada yang error silahkan berkomentar nya...

Subscribe to receive free email updates: