10 dakikadır konuyu VB.Net Sorular kategorisinde arıyorum bulamıyorum. Cevaplanmışlara bakıyorum yok diyorum ki belki Visual Basictedir orada da yok. Visual Basic Cevaplanmışlara bakıyorum yok. En son kendi yazdığım mesajlardan bulabildim. Kategori 'Fikir, Eleştiri ve Önerileriniz' olunca
Site Kuralları nın ne kadar önemli olduğunu tüm hücrelerime varıncaya kadar idrak ediyorum. Ekte Vb.Net 2010 ile hazırlanmış örnek bulunmaktadır. Bu versiyona sahip olmayanlar için kod aşağıdaki gibidir:
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
Vb.NET_SMTP_POP_e_Mail_Gonderimi_Send.rar
(Dosya Boyutu: 60,74 KB | İndirme Sayısı: 28)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için
Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.