Vb.Net无法发送邮件

Question

我在我的程序中添加了一个函数，这样用户就可以在使用时发送带有报告的邮件。我的问题是，当我试图发送邮件“邮件无法发送”之后，我从Gmail端解锁smtp端口，所以我认为我的代码有问题，但我找不到它。这是我的密码

 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    If TextBox18.Text.EndsWith("@gmail.com") Then
        Dim Mail As New MailMessage
        Mail.Subject = (TextBox17.Text)
        Mail.To.Add(TextBox16.Text)
        Mail.From = New MailAddress(TextBox18.Text)
        Mail.Body = (Betreff.Text)
        Dim SMTP As New SmtpClient("smpt.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(TextBox18.Text, password.Text)
        SMTP.Port = "587"
        SMTP.Send(Mail)
    ElseIf TextBox18.Text.EndsWith("@buch-automation.de") Then
        Dim Mail As New MailMessage
        Mail.Subject = TextBox13.Text
        Mail.To.Add(TextBox16.Text)
        Mail.From = New MailAddress(TextBox18.Text)
        Mail.Body = Betreff.Text
        Dim SMTP As New SmtpClient("smtp.1und1.de")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(TextBox18.Text, password.Text)
        SMTP.Port = "993"
        SMTP.Send(Mail)
    End If
End Sub

端级

Answer 1

开关选项严格开始(并始终)。另外，smtp应该是smtp，谢谢Matt。