Sn; Programci23 arkadaş
Herkes elinden geleni yapıyor birazda siz çaba sarf ederseniz çok güzel olur.site yönetimi olarak yardımcı olamaya çalışıyoruz birazda siz araştırıp ögrenmeye çalışırsanız çok güzel olur insanlıkla bir ilgisi yok sonuçda bizde insanız bizimde kendimize göre işlerimiz var demi birazda siz gayret etmelisiniz hata veriyor deyip kesip atmayın lütfen.

Sn;Duayen Arkadaş ya herkes aynı şeyi söylüyor araştır araştır araştır...Bunu sizin söylemenize gerek yok ben bunu eğer burada sizlere soruyorsam demekki araştırıp bulamadım diye sizlere sordum söyleseniz ne olur yani...Bir yardım ediyorsanız eğer tam ediniz bari ermeyecekseniz de hiç etmeyin....Siz yardım ettiniz allah razı olsun bendede çalıştı bulamadım aradım googlede soruşturdum çıkmadı size sordum kimse cevap vermiyor herkes bir hava içerisinde Unutmayınız ki bilgi paylaştıkça değerlidir...

Muhterem senin durumunu anlıyorum ancak sende bizi anla. İşyerindeyim makineler geliyor, diğer yandan web sitesi yaptıranlar arıyor şunu nasıl yaparız vs. diye. Ben geçimimi bu işten sağlıyorum. Boş vakitlerimde de burada yardımcı olmaya çalışıyorum ve buradan bir gelirim yok. Sence önce kime yardım etmeliyim? Sitedeki sorularamı yoksa müşterilerime mi?

Evet Syn Alpeki;
sende haklısın diyecek birşey bulamıyorum ama buda benim için çok önemli neyse mademki kimse söylemiyor.Bir şekilde bulacaz daha ne yapalım... Allah yardımıcımız olsun inşallah bulurum...Yinede hepinize teşekkürler...

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

Syn Alpeki Abim;
Size çok teşekkür ediyorum yardımınız için ben umudumu kesmiştim buradan ama siz cevapladınız tamamdır bu sorunu hallettim tekrar teşekkürler....YARDIMINIZ İÇİN