- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Bu dersimizde Visual Basic ile sorunsuz e-posta göndermeyi öğrenelim.
Program Kodları:
Kod:
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 SubEnd Class
Program Kodları:
Kod:
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 SubEnd Class