" Umut, hiç görmeyen birine gökkuşağını anlatmak kadar zor ve imkansız... "

Categories

-

Vb.Net ile mail gönderme !!!

Bir proje çalismamda, mail sistemi kurmam gerekti. O yüzden internette kisa arastirmalar sonucu buldugum kodlari ve üzerinde biraz oynayarak çalisir hale getirip projemde kullanir duruma getirdim.

mail gönderme islemi yapmadan önce mail kütüphanesini projemize import ediyoruz yani ekliyoruz.

Imports System.Net
Imports System.Net.Mail

ekleme isleminden sonra formumuzu asagidaki görüntü gibi ayarliyoruz.

ve adindan E-Mail Gönder butonumuzun Click olayina asagidaki kodlari yaziyoruz.

Try
            'Mail Mesaji Nesnesi Olusturuyoruz
            Dim mail As New MailMessage()
            'Maili Gönderecek Nesne
            Dim SmtpServer As New SmtpClient
            'Gmail Hesap Bilgilerini Girerek Oturum Açiyoruz.
            SmtpServer.Credentials = New Net.NetworkCredential("E-Mail adresimiz", "sifresi")
            'Mailin Gönderilecegi Port
            SmtpServer.Port = 587
            'Mail Sunucusu Adresi
            SmtpServer.Host = "smtp host adresimizi giriyoruz. mail.gmail.com gibi"
            'SSL Sertifikasi olup olmadigini ayarliyoruz
            SmtpServer.EnableSsl = False
            'Mail Gönderilecek Adresleri Ekliyoruz. Istediginiz Kadar Ekleyebilirsiniz.
            mail.To.Add(gon_adres.Text)
            'Gönderen Kisinin Mail Adresi ve Gönderen kisinin Adi
            mail.From = New MailAddress("iletisim@okanduzgun.com", "Okan Düzgün")
            mail.IsBodyHtml = True
            'Mail Mesaji
            mail.Body = mail_baslik.Text
            'Mail Konusu
            mail.Subject = mail_konu.Text
            'Maili Gönderiyoruz.
            SmtpServer.Send(mail)
            MessageBox.Show("Mail Basariyla Gönderildi.", "Islem Basarili !!!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            gon_adres.Text = Nothing
            mail_baslik.Text = Nothing
            mail_konu.Text = Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString + " " + "Hata Olustu.", "Bilgilendirme !!!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        End Try

yukaridaki bilgileri hatasiz bir sekilde projemize dahil etmissek eger mail gönderimi basarili bir sekilde gerçeklesmesi gerekiyor.

Örnek uygulamayi buradan indirebilirsiniz.

  • 0
  • 2442
  • 0

- BUNLARIDA GÖZDEN GEÇİREBİLİRSİNİZ -

HENÜZ YORUM YAPILMAMIŞ !

Yorum yazın

HAKKIMDA

KONULARI TAKİP EDİN

SOSYAL AĞLAR

  • Mesajınızı Gonderin