AccessTr.neT

Bul · 19/05/2011, 18:33

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.

Bul · 19/05/2011, 18:49

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...

Bul · 19/05/2011, 18:56

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?

Bul · 19/05/2011, 19:03

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... Img-grin

Allah yardımıcımız olsun inşallah bulurum...Yinede hepinize teşekkürler...

Bul · 20/05/2011, 12:14

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

Bul · 23/05/2011, 17:55

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

AccessTr.neT

Microsoft Visual Studio 2008 de Mail Gönderme

Microsoft Visual Studio 2008 de Mail Gönderme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri