Vb.Net无法发送邮件

即时通讯向我的程序添加一个功能，因此用户可以在使用邮件时向邮件发送邮件。我的问题是我试图发送邮件后出现错误“邮件无法发送” 我从Gmail端解锁了smtp端口，所以我认为我的代码出了问题，但无法找到它。这就是我的代码Vb.Net无法发送邮件

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

末级

来源

2015-11-03 Lancakyr Skora

切换'Option Strict On'以（始终）开始。另外'smpt'应该是'smtp' –

您还需要授予您的Gmail帐户从第三方应用程序（基本上不承认）发送电子邮件的权限。链接在这里https://www.google.com/settings/security/lesssecureapps –

我写道，我解锁了一切gmail方:) –

开关选项严格，开始与（始终）。也smpt应smtp 谢谢马特

来源

2015-11-03 11:44:54

Vb.Net无法发送邮件

回答

相关问题