THT DUYURU

 
 
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

vb 6.0 yardim edin her yoruma +1

Salveres34 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
10/2011
Mesajlar:
341
Konular:
84
Teşekkür (Etti):
82
Teşekkür (Aldı):
14
Ticaret:
(0) %
2
277
07-11-2012 17:23
#1
[B]


Bir proje içindeyim.
Bu resimde gordugunuz
Hangi kod neye ait oldugunu belirtin lutfen

eposta gonderici yapicam ama kodlarini bilmiyorum su resimde gordugunuz bildiginiz kodlari soylerseniz sevinicem.

her yorum +1
ayrica hakkinda bolumune yardim edenlerin ismi gecicek.
Herkez tarafindan kullanilcak birişey bu editsiz hali edit haline getirsem kodlari paylasirsaniz iyi olur tabiki
---------------------

[B]By Coder Salveres34
Konu Salveres34 tarafından (07-11-2012 17:36 Saat 17:36 ) değiştirilmiştir.
Cyper65 - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
10/2012
Nereden:
İzmir
Mesajlar:
1.585
Konular:
229
Teşekkür (Etti):
200
Teşekkür (Aldı):
227
Ticaret:
(0) %
07-11-2012 17:27
#2
vb6 mı bilmıyorum ama bu kodları dene bende acemiyim


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
Salveres34 Teşekkür etti.
Salveres34 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
10/2011
Mesajlar:
341
Konular:
84
Teşekkür (Etti):
82
Teşekkür (Aldı):
14
Ticaret:
(0) %
07-11-2012 17:28
#3
Hangi butona yazicam belirtsen iyi olurdu
---------------------

[B]By Coder Salveres34

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler