Visual Basic ile E-Posta Gönderme

Bu dersimizde Visual Basic ile sorunsuz e-posta göndermeyi öğrenelim.

Bu dersimizde Visual Basic ile sorunsuz e-posta göndermeyi öğrenelim.




Program Kodları:


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



       



        ProgressBar1.Value = 5

        Dim message As System.Net.Mail.MailMessage

        ProgressBar1.Value = 10

        Dim smtp As New System.Net.Mail.SmtpClient(TextBox3.Text, 587)

        ProgressBar1.Value = 24

        message = New System.Net.Mail.MailMessage(TextBox1.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text)

        smtp.EnableSsl = True

        ProgressBar1.Value = 59

        smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)

        ProgressBar1.Value = 70

        ProgressBar1.Value = 80

        Try

            smtp.Send(message)

            ProgressBar1.Value = 100

            MsgBox("Mesaj Gönderildi")

            ProgressBar1.Value = 0

        Catch exc As Net.Mail.SmtpException

            ProgressBar1.Value = 0

            MessageBox.Show("Bir sorun oluştu.", " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            MessageBox.Show("Lütfen internet bağlantınızı kontrol edip tekrar deneyiniz.", " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try







        If CheckBox1.Checked Then

            My.Settings.username = TextBox1.Text

            My.Settings.Save()

            My.Settings.Reload()



        End If

        If CheckBox2.Checked Then

            My.Settings.password = TextBox2.Text

            My.Settings.Save()

            My.Settings.Reload()



        End If



    End Sub



    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox1.Checked Then

            My.Settings.username = ""

            My.Settings.password = ""

            My.Settings.Save()

            My.Settings.Reload()

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

End Class




Kolay Gelsin....
  • Etiketler;
Doğaç Topay
İstanbul’da yaşayan Doğaç Topay, PHP, Javascript ve Visual Basic ile ilgili dersler hazırlıyor.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

[center][b]Çok Teşekkür Ederim Denedim İlk Başta Bİraz Nazlandı Hata Verdi Ama Sonra Düzeldi İstediğim Kadar E-Mail Gönderebiliyorum TEŞEKKÜRLER SanalKurs[/b][/center] İsteyen Ya Da Yeni Yapmaya Çalışanlar İçin Bi Link Verim Linkte Kırıklık Yok http://s3.dosya.tc/server14/5fTYY2/VBMailG_nderme.rar.html

Yukarı Git