使用SMTP

时间:2016-08-24 09:43:37

标签: vb.net email smtp

我真的开始对通过VB.NET发送电子邮件(例如:test@test.com)并确定使用SMTP感到困惑。

我希望在单击Button1时发送邮件(示例)。

所以我开始使用类似的代码

Imports System.Net.Mail

Public Class MyProgram

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using message As New MailMessage()
            'set to the from, to and subject fields
            message.From = New MailAddress("sender@sender.com")
            message.[To].Add(New MailAddress("test@test.com"))
            message.Subject = "Test"
            'code the message body
            Dim MsgBody As String
            MsgBody = TextBox1.Text.ToString() & vbCr & _
                      TextBox2.Text.ToString()
            message.Body = MsgBody
            Dim client As New SmtpClient()
            client.Host = "smtp.example.com"
            client.Port = "465"
            client.EnableSsl = True
            client.Credentials = New Net.NetworkCredential("USERNAME@MAIL.COM", "PASSWORD")
            client.Send(message)
        End Using
        'display submitted box
        MessageBox.Show("Congrats", "Congratulations!")
        'close form
        Me.Close()
    End Sub
End Class

我得到了:

enter image description here

接下来,我尝试了另一个代码(即)...

Imports System.Net.Mail

Public Class MyProgram

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Smtp_Server As New SmtpClient
        Dim e_mail As New MailMessage()
        Smtp_Server.UseDefaultCredentials = False
        Smtp_Server.Credentials = New Net.NetworkCredential("USERNAME@MAIL.COM", "PASSWORD")
        Smtp_Server.Port = 465
        Smtp_Server.EnableSsl = True
        Smtp_Server.Host = "smtp.example.com"

        e_mail = New MailMessage()
        e_mail.From = New MailAddress("sender@sender.com")
        e_mail.To.Add("test@test.com")
        e_mail.Subject = "Test E-mail Address Sent by My Program"
        e_mail.IsBodyHtml = False
        e_mail.Body = "Test"
        Smtp_Server.Send(e_mail)
        MsgBox("Mail Sent")
    End Sub
End Class

现在我在调试器中得到以下内容:

enter image description here

enter image description here

enter image description here

enter image description here

enter image description here

enter image description here

enter image description here

最后,电子邮件没有被发送!

请不要说" sender@sender.com"没有被配置为发件人电子邮件地址,因为它是!

我真的需要帮助!

感谢。 : - )

0 个答案:

没有答案