邮箱名称不允许。发件人地址被拒绝。未登录

Question

尝试了很多来确定此错误的根本原因，但完全失败了。任何建议都会非常有帮助。

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

Answer 1

我自己解决了这个问题。

假设您的邮件 ID 是："mymail@mymaildomain.com"

在 SMTP 凭据中仅提及 "mymail"，忽略 @ 和其余电子邮件部分。

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

仅在发件人地址中提及您的完整电子邮件地址。

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

希望这对以后遇到同样问题的人有所帮助。