Visual basic SMTP mail,Visual basic iletişim kutusu

Discussion in 'Programlama' started by Dejavu, Mar 2, 2010.

Tags:
  1. Dejavu

    Dejavu Member

    Ö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:
    [​IMG]

    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:
     

Share This Page