E-Posta Göndermek - Visual Basic Dersi

ads

ads

Bu derste Visual basic ile e-posta göndermeyi öğreneceğiz.

Visual Basic İle E-posta Gönderme Anlatımı:

Gerekli  araçlar;

6 tane TextBox

6 Tane Label

1 Tane Button

1 Tane ProgressBar

3 tane  CheckBox

Form tasarımını ben aşağıdaki gibi yaptım gerekli malzelemerimizi eklendikten sonra siz istediğiniz gibi yapabilirsiniz.

Örnek tasarım 1

ben yeni tasarımda 3 tanede CheckBox ekledim o kadar önemli olan bi araç değil isteğinize bağlı ister eklersiniz eklemessinizde herhangi bir sorun olmaz fakat aşağıdaki verceğim kodu eklediğinizde checkBox'lara göre ayarlanmış kod olduğundan eklemenizi tavsiye ederim kodlamada hata almamamanız için.



Örnek Görüntü 2 




Tasarımı tamamlamımızın ardından My Project sekmesinden setting bölümüne tıklayın ve birincisine username 2. sine password yazınız aşağıdaki resimki gibi.


Örnek Resim 3



Button1'e çift tıklayın ve click olayına aşağıdaki kodları yazın.

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..

ads