Имя почтового ящика не разрешено.Адрес отправителя отклонен.Не вошли в - PullRequest
Новая
       37

Имя почтового ящика не разрешено.Адрес отправителя отклонен.Не вошли в

0 голосов
/ 18 мая 2018

Много пытался определить причину этой ошибки, но полностью потерпел неудачу.Любое предложение будет очень полезным.

Error Message

Try
    Dim Smtp_Server As New SmtpClient
    Dim e_mail As New MailMessage()
    Smtp_Server.UseDefaultCredentials = False
    Smtp_Server.Credentials = New Net.NetworkCredential(txtFrom.Text, txtPassword.Text)
    Smtp_Server.Port = cmbPort.Text

    Smtp_Server.EnableSsl = cbxSSL.Checked
    Smtp_Server.Host = cmbHost.Text

    e_mail = New MailMessage()
    e_mail.From = New MailAddress(txtFrom.Text)
    e_mail.To.Add(txtTo.Text)
    e_mail.Subject = "Auto Email"
    e_mail.IsBodyHtml = False
    e_mail.Body = "Hi, This is test mail."

    Smtp_Server.Send(e_mail)
    MsgBox("Mail Sent")


Catch error_t As Exception
    MsgBox(error_t.ToString)
End Try

1 Ответ

0 голосов
/ 21 мая 2018

Решил проблему самостоятельно.

Предположим, что ваш почтовый идентификатор: «mymail@mymaildomain.com»

В SMTP Credentials просто упомяните «mymail», игнорируя @ и остальныечастей электронной почты. 

Smtp_Server.Credentials = New Net.NetworkCredential("mymail", txtPassword.Text)

Укажите свой полный адрес электронной почты только в поле От адреса. 

e_mail.From = New MailAddress("mymail@mymaildomain.com")

Надеюсь, это поможет кому-то, кто столкнется с той же проблемой в будущем.

...