Imports System.Net
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mailGonder()
End Sub
Sub mailGonder()
' -----------------------------------------------------------------
' Bu uygulama AccessTR.Net tarafından hazırlanmıştır
' Aşağıda rakam ile belirtilen yerlere yazılacak bilgiler şu şekildedir :
' 1 : Gmail adresiniz
' 2 : ePostayı kime gönderecekseniz onun adresi
' 3 : Konu başlığını bu bölüme yazmalısınız
' 4 : Mesajınızı bu bölüme yazacaksınız
' 5 : Gmail kullanıcı adınız yani ePosta Adresiniz
' 6 : Gmail hesabınızın parolası
'
' D İ K K A T ! ! ! ! !
' Bu uygulamayı kullanabilmeniz için Gmail hesabınızda sağ üst köşedeki Ayarlar -> Yönlendirme ve POP/IMAP sekmesinde yer alan
' Tüm postalar için POP'u etkinleştir (daha önce indirilmiş olan postaları da dahil et) seçeneği ile erişim izni vermeniz gerekmektedir
' -----------------------------------------------------------------
Try
Dim ePosta As New MailMessage
ePosta.From = New MailAddress("_____1_____")
ePosta.To.Add("_____2_____")
ePosta.Subject = ("_____3_____")
ePosta.Body = ("____4____")
ePosta.Priority = MailPriority.High
Dim SimpleSMTP As New SmtpClient("smtp.gmail.com")
With SimpleSMTP
.Port = 587
.EnableSsl = True
.Credentials = _
New NetworkCredential("____5_____", "____6____")
.Send(ePosta)
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class
Tüm formun kodlarını yapıştırdım buraya. Butonun tıklanma olayına mailGonder() prosedürünü yazıyorsunuz. Prosedür ise şu şekilde:
Sub mailGonder()
' -----------------------------------------------------------------
' Bu uygulama AccessTR.Net tarafından hazırlanmıştır
' Aşağıda rakam ile belirtilen yerlere yazılacak bilgiler şu şekildedir :
' 1 : Gmail adresiniz
' 2 : ePostayı kime gönderecekseniz onun adresi
' 3 : Konu başlığını bu bölüme yazmalısınız
' 4 : Mesajınızı bu bölüme yazacaksınız
' 5 : Gmail kullanıcı adınız yani ePosta Adresiniz
' 6 : Gmail hesabınızın parolası
'
' D İ K K A T ! ! ! ! !
' Bu uygulamayı kullanabilmeniz için Gmail hesabınızda sağ üst köşedeki Ayarlar -> Yönlendirme ve POP/IMAP sekmesinde yer alan
' Tüm postalar için POP'u etkinleştir (daha önce indirilmiş olan postaları da dahil et) seçeneği ile erişim izni vermeniz gerekmektedir
' -----------------------------------------------------------------
Try
Dim ePosta As New MailMessage
ePosta.From = New MailAddress("_____1_____")
ePosta.To.Add("_____2_____")
ePosta.Subject = ("_____3_____")
ePosta.Body = ("____4____")
ePosta.Priority = MailPriority.High
Dim SimpleSMTP As New SmtpClient("smtp.gmail.com")
With SimpleSMTP
.Port = 587
.EnableSsl = True
.Credentials = _
New NetworkCredential("____5_____", "____6____")
.Send(ePosta)
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sayfanın en başında olması gereken iki satır ise :
Imports System.Net
Imports System.Net.Mail