VB 2010 İLETİŞİM KUTUSU YAPMA(E-Mail)

Merhaba,
Sizi Hiç Uğraştırmicam.. Direk Kodları Paylaşıyorum ve neyler Koyucanızı anlatıcam bu iletişim kutusu biraz Gelişmiş...


Turk Hack Team Iletişim Kutusu Yapımı - YouTube

Koyulucaklar

-6 Adet TextBox
-6 Adet Label
-1 Adet ColorDialog
-1 Adet FontDialog
-5 Adet Button
-1 Adet ProgressBar

Label'lara Verilecek isimler.
1.Kimden
2.Şifre
3.SMTP
4.Kime
5.Konu

---------------
1.Button Text : GÖNDER

Private Sub Button1_Click_1(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", , "Teşekkürler")
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

---------------
2.Button Text : Temizle

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = ("")
TextBox2.Text = ("")
TextBox5.Text = ("")
TextBox6.Text = ("")

End Sub

--------------
Button54 Olarak Yazılı bende sizde öyle yaparsınız. (Yazı Rengini Değiştirir.)

Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click

ColorDialog1.ShowDialog()
TextBox6.ForeColor = ColorDialog1.Color

End Sub
--------------
Button53 Olarak Yazılı Bende.(Arka Pilan Rengini Değiştirir.)

Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
ColorDialog1.ShowDialog()
Button53.BackColor = ColorDialog1.Color
TextBox6.BackColor = ColorDialog1.Color
Button54.BackColor = ColorDialog1.Color
End Sub
----------------
Button55 Olarak Yapın.(Yazı Tipi Boyut Değiştirir.)

Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click
FontDialog1.ShowDialog()
TextBox6.Font = FontDialog1.Font
End Sub
---------------

ProgressBar1 Vaule'si 0


BİR SORUNLA :inv KARŞILAŞIRSANIZ YORUM ATIN YETER...