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.