Visual basic SMTP mail,Visual basic iletişim kutusu

Öncelikle yeni bir form oluşturun. Daha sonra:


1 Adet Button 2 adet textBox ekleyin.
Textboxların isimleri ile oynamayın eğerki değiştiricek olursanızda aşağıda verdiğim kod'a göre uyarlayın ..

Şimdi ekledigimiz button'a cift tıklayarak Kod penceresini acıyoruz.

ve şu kodları yapıstırıyoruz. ama once en üst satıra Imports System.Net.Mail yapıstırın..

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim kuflucom As New MailMessage()
Try
kuflucom.From = New MailAddress("xxxxxxxxxx@gmail.com")
kuflucom.To.Add("xxxxxxx0@gmail.com")
kuflucom.Subject = TextBox1.Text
kuflucom.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("Mail adresimizi buraya", "mail sifresini buraya yazıcaz")
SMTP.Send(kuflucom)
TextBox2.Text = ""
MsgBox("Mesajınız iletilmiştir.")



Catch ex As Exception

End Try
End Sub
End Class

Örnek Görünüm:


Bu verdigim tabi Görüldüğü üzere g-mail icin gecerli bir form eger farklı mail sevisleri kullanıyorsanız kullandıgınız servisin smtp - port ayarlarınızı girmeniz yeterli olucaktır..

Çok faydalı bir kod Gerek iletişim kutusu gerek fake programlamada kullanılır.:saygilar: