Visual Basic ile E-Posta Gönderme

[alimania]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Alıntı