Membuat program notifikasi by email menggunakan vb.net

Assalamualaikum Wr Wb,

Halo selamat malam, kali ini saya akan share bagaimana caranya membuat program notifikasi lewat email menggunakan bahasa pemrograman visual basic.net. Fungsi utama program ini adalah mengirimkan email ke alamat yang sudah di tentukan dan juga waktu (jam) yang sudah ditentukan.

Artinya setelah anda melakukan setting terhadap program ini misalnya akan dikirim pada jam 19.00 Wita, maka pesan yang sudah anda tentukan akan dikirim oleh program ini. menarik bukan ?

Tentu saja anda dapat mengembangkan program ini lebih jauh lagi, jika dalam tutorial kali ini (menurut anda) tidak sampai dengan pemrograman yang sulit.

Kita akan menggunakan vasilitas yang sudah di siapkan oleh vb.net yakni ‘System.Net.Mail’, berikut adalah langkah-langkah nya:

    • 1. Siapkan satu buah form, satu buah timer, lima buah label, dua buah textbox, satu buah Date Time Picker, dua buah button, dan satu buah group box.
    • 2. Design formnya seperti gambar dibawah ini
    • email_notifikasi_1
    • 3. Kemudian buat sintak seperti dibawah ini

Imports System.Net.Mail
Public Class Email_Notifikasi

Sub bersih()
jamkirim.Enabled = False
btnset.Enabled = False
btnubah.Enabled = True
End Sub

Sub jam()
Timer1.Interval = 1000
Timer1.Start()
End Sub

Private Sub Email_Notifikasi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call bersih()
Call jam()
txtisiemail.Text = "INI ADALAH TESTING NOTIFIKASI LEWAT EMAIL MENGGUNAKAN VB.NET"
txtkepada.Text = "hendrawijaya.it@gmail.com"
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lbljam.Text = Now.ToLongTimeString
If lbljam.Text = jamkirim.Text Then
Call kirimemail()
End If
End Sub

Private Sub btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnubah.Click
btnset.Enabled = True
jamkirim.Enabled = True
btnubah.Enabled = False
End Sub

Private Sub btnset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnset.Click
btnubah.Enabled = True
btnset.Enabled = False
jamkirim.Enabled = False
End Sub

Sub kirimemail()
Try
Dim dari, password As String
dari = "hendrawijaya.it@gmail.com"
password = "passwordand"
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage
smtpServer.Credentials = New Net.NetworkCredential(dari, password)
smtpServer.Port = 465
smtpServer.EnableSsl = True
smtpServer.Host = "smtp.gmail.com"
mail.From = New MailAddress(dari)
mail.To.Add(txtkepada.Text)
mail.Subject = "TEST EMAIL NOTIFIKASI"
mail.Body = txtisiemail.Text
smtpServer.Send(mail)
lblstatus.Text = "EMAIL SUKSES DIKIRIM " & Now
Catch ex As Exception
MessageBox.Show(ex.Message).ToString()
End Try
End Sub
End Class

  • 5. Jalankan program / F5
  • 6. Settup Jam Kirim, contoh seperti gambar dibawah ini
  • email_notifikasi_2
  • 7. Tunggu hingga jam sekarang = jam kirim
  • 8. Lihat perubahan pada label status

Wassalam
Hendra Wijaya

0 Comments

  1. emil says:

    Klu menggunakan database gimana ya gan?

0 Trackbacks

Tinggalkan Balasan