Kód: Vybrat vše
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mail As New MailMessage
mail.Subject = TextBox4.Text
mail.To.Add(TextBox5.Text)
mail.From = New MailAddress(TextBox2.Text)
mail.Body = TextBox1.Text
Dim smtp As New SmtpClient
smtp.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
smtp.Port = 465
smtp.Host = "smtp.seznam.cz"
smtp.EnableSsl = True
smtp.Send(mail)
End Sub
-TextBox1 = obsah zprávy
-TextBox2 = mail odesílatele
-TextBox3 = heslo odesilatele
-TextBox4 = předmet zprávy
-TextBox5 = mail příjemce
Visual Basic hází chybu "SmtpException wa unhalted: časový limit operace vypršel" nevíte kde je chyba?
předem děkuji za odpovědi
