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

结束Class

Answer 1

首先（并且始终）将 Option Strict On 打开。另外 smpt 应该是 smtp 谢谢马特

Vb.Net 无法发送邮件

Vb.Net Could not send the Mail

vb.net

email

sendmail