6. Visual Basic.NET 2010 ile E-Posta Göndermek
Visual Basic içerisinden e-posta göndermek için hazırladığım fonksiyon aşağıdadır. Kodları kopyalayıp doğrudan kullanabilirsiniz.
Satırlara yazdığım açıklamaları da okumanızı tavsiye ediyorum.
Satırlara yazdığım açıklamaları da okumanızı tavsiye ediyorum.
Eğer yazının altından puan verip, varsa - yorum-öneri yazarsanız sevinirim. Sorularınız da varsa lütfen yazmaktan çekinmeyin.
Kolay gelsin.
Imports
System.Net.Mail 'BUNU UNUTMAYIN !
#Region "e_posta_gonder"
Private Function e_posta_gonder(ByVal
gonderen_adres As String,
ByVal gonderen_sifre As
String, ByVal
alici_adres As String,
ByVal konu As String, ByVal
posta_icerigi As String,
ByVal smtp_mail_server As
String, ByVal
server_gonderme_portu As String)
Dim
sonuc As Boolean
= False
Try
Dim
e_posta As New MailMessage 'gönderilecek
e-posta bilgileri bu değişkende saklanacak
Dim
smpt_server As New
SmtpClient 'smtp
mail server bilgileri bu değişkende saklanacak
e_posta.From = New MailAddress(gonderen_adres)
'postayı gönderecek adres
e_posta.Priority = MailPriority.High 'mail önem
değeri buradan değiştirilebilir
e_posta.To.Add(alici_adres) 'add ile başka adresler de eklenebilir
e_posta.Subject = konu 'e-posta konu başlığı
e_posta.Body = posta_icerigi 'e-posta içeriği
e_posta.isBodyHtml = True 'bunu yapmazsanız, gönderdiğiniz iletiler metin olarak gider, bununla HTML kullanma şansımız var ki bence olmazsa olmaz bir gereklilik.
e_posta.isBodyHtml = True 'bunu yapmazsanız, gönderdiğiniz iletiler metin olarak gider, bununla HTML kullanma şansımız var ki bence olmazsa olmaz bir gereklilik.
smpt_server.EnableSsl
= True 'smpt mail server SSL kullanmıyorsa bu satırı silin. Hata oluşmasına yol açabilir.
smpt_server.Port = server_gonderme_portu
'smpt mail server gönderme portu -genelde 587
olmaktadır-
smpt_server.Host = smtp_mail_server
'smpt mail server adı
smpt_server.Credentials = New Net.NetworkCredential(gonderen_adres,
gonderen_sifre) 'postayı gönderen adres ve şifresi
smpt_server.Send(e_posta) 'gönderme işlemi
sonuc = True
'işlem başarılı şekilde tamamlanırsa fonksiyon true gönderir
Catch
ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Hata
Oluştu") 'hata oluşursa, hata içeriği
mesaj ile gösterilir
sonuc = False
'hata oluşursa fonksiyon false gönderir
End Try
Return
sonuc 'işlem sonucu ile ilgili fonksiyon değer gönderir
T/F
End Function
#End Region
Yorumlar
Yorum Gönder
Her türlü eleştiri, görüş, öneri, soru ve açıklamanızı yazmaktan çekinmeyin. (You might write in English, too)