Vb.net vb2010中邮件发送失败

试图得到一个非常基本的程序给我发送电子邮件。我有3个文本框

TextBox1是一个只读文本框，其中包含我的电子邮件 TextBox2代表“您的电子邮件” TextBox3用于发送您的信息

还有一个按钮（按钮1）写着“发送”

这是我整个项目的代码。为了安全起见，我删除了这个问题中的电子邮件和密码

当我运行程序并键入“Test1234@live.com在TextBox2和“TestEmail1234”中输入TextBox3并按send，它会将我带回编码页面并显示 “SmtpException未处理。 发送邮件失败“

---

有一些问题，我会给你一个工作脚本

Imports System.Net.Mail
Public Class Form1
Dim message As New MailMessage
Dim smtp As New SmtpClient
Dim instance As IDisposable


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Mail As New MailMessage
    Mail.Subject = "test email"
    Mail.To.Add("recieveradress@gmail.com")
    Mail.From = New MailAddress("senderadress@gmail.com")
    Mail.Body = "This is an email!"
    Dim SMTP As New SmtpClient("smtp.gmail.com")
    SMTP.EnableSsl = True
    SMTP.Credentials = New System.Net.NetworkCredential("senderaddress@gmail.com", "password")
    SMTP.Port = 587
    SMTP.Send(Mail)
    MsgBox("Sent Successfully")

End Sub
End Class

---

有一些问题，我会给你一个工作脚本

Imports System.Net.Mail
Public Class Form1
Dim message As New MailMessage
Dim smtp As New SmtpClient
Dim instance As IDisposable


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Mail As New MailMessage
    Mail.Subject = "test email"
    Mail.To.Add("recieveradress@gmail.com")
    Mail.From = New MailAddress("senderadress@gmail.com")
    Mail.Body = "This is an email!"
    Dim SMTP As New SmtpClient("smtp.gmail.com")
    SMTP.EnableSsl = True
    SMTP.Credentials = New System.Net.NetworkCredential("senderaddress@gmail.com", "password")
    SMTP.Port = 587
    SMTP.Send(Mail)
    MsgBox("Sent Successfully")

End Sub
End Class

---

你能设置一个断点并判断出哪一行出错吗？@ValentijnSpruyt a什么？我是Visual Studio 2010的新手。右键单击按钮的开始行1\u单击子按钮并选择“添加断点”。然后运行代码，它将在断点处停止。然后在顶部菜单中，您可以选择DEBUG>step into/over…，并每行检查代码行。在某个特定时刻，您的代码将被破坏。你能提供代码中断的那一行吗？干杯。@ValentijnSpruyt“smtpServer.Send（mail）”弹出“发送邮件失败”文本框1.text中有什么？因为mail.To.Add（）需要一个email作为参数，我怀疑您的示例中是这样的，因为您将TextBox1.text作为邮件地址的“名称”。您能设置一个断点并告诉它在哪一行出错吗？@ValentijnSpruyt a什么？我是Visual Studio 2010的新手。右键单击按钮的开始行1\u单击子按钮并选择“添加断点”。然后运行代码，它将在断点处停止。然后在顶部菜单中，您可以选择DEBUG>step into/over…，并每行检查代码行。在某个特定时刻，您的代码将被破坏。你能提供代码中断的那一行吗？干杯。@ValentijnSpruyt“smtpServer.Send（mail）”弹出“发送邮件失败”文本框1.text中有什么？因为mail.To.Add（）需要一个email作为参数，我怀疑在您的示例中会出现这种情况，因为您将TextBox1.text作为Mailaddress的“名称”。