|
Dobrý den. Dělám aplikaci pro odesílání mailů. Když chci mail odeslat, tak mi vyskakují různé chybové hlášky: -SMTP.CENTRUM.CZ : Odesílání emailu se nezdařilo Chyba číslo -1 -SMTP.HOTMAIL.COM : To samé -SMTP.SEZNAM.CZ Služba není k dispozici. Kanál přenosu bude uzavřen. Odpověď serveru: Cannot connect to SMTP server (ip adresy), connect error 10060 Chyba číslo 421 -SMTP.GOOGLE.COM To samé jako u seznamu jenom jiná IP Kód:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim EmailMessage As MailMessage = New MailMessage
EmailMessage.From = New MailAddress(ComboBox1.Text & "@omlands.tk")
EmailMessage.To.Add(TextBox5.Text)
EmailMessage.Subject = (TextBox4.Text)
EmailMessage.IsBodyHtml = True
EmailMessage.Body = RichTextBox1.Text
EmailMessage.Priority = MailPriority.High
Dim smtp As New SmtpClient(TextBox1.Text)
Dim basicAuthenticationInfo As New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
smtp.Credentials = basicAuthenticationInfo
smtp.Send(EmailMessage)
EmailMessage.Dispose()
Catch ex As Net.Mail.SmtpException
MsgBox("Chyba:" & vbCrLf & ex.Message & vbCrLf & "Chyba číslo " & ex.StatusCode)
End Try
End Sub
End Class
Nevíte co s tím může být? Za odpověď díky předem. Ondra.
|