Question

我在我的程序中添加了一个函数，因此用户可以在使用时发送带有报告的Mails。我的问题是我在尝试发送邮件后出错了＃34;邮件无法发送＆＃34; 我从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 谢谢马特

Vb.Net无法发送邮件

1 个答案: