vb.net - 使用 vb.net 从 Windows 应用程序发送电子邮件

Question

我有以下代码，我正在尝试从我的 Windows 应用程序发送一封电子邮件，但它不工作......有什么帮助吗？请注意，我正在使用 vb.net 并且我没有收到任何错误.. 我只是没有收到任何电子邮件！

 Private Sub senemail()
    'create the mail message
    Dim mail As New MailMessage()

    'set the addresses
    mail.From = New MailAddress("jocelyne_elkhoury@inmobiles.net")
    mail.To.Add("jocelyne_el_khoury@hotmail.co.uk")

    'set the content
    mail.Subject = "This is an email"
    mail.Body = "this is a sample body"

    'send the message
    Dim smtp As New SmtpClient("127.0.0.1")
    smtp.Send(mail)
End Sub

Answer 1

根据我的经验，通过 .net（以及之前的 vb6）发送电子邮件很奇怪。有时它应该可以工作，但有时却没有，有时是因为 .net 错误，有时是因为与 smtp 服务器不兼容。这是一些适用于 VB 2008 的代码，它应该适用于 2010。

Using msg As New MailMessage(New MailAddress(fromAddress, fromName), New MailAddress(toAddress))
  Try
    Dim mailer As New SmtpClient
    msg.BodyEncoding = System.Text.Encoding.Default
    msg.Subject = subject
    msg.Body = body
    msg.IsBodyHtml = False

    mailer.Host = mailserver
    mailer.Credentials = New System.Net.NetworkCredential(username, password) ' may or may not be necessary, depending on the server
    mailer.Send(msg)
  Catch ex As Exception
    Return ex.Message
  End Try
End Using ' mailmsg

1. 如果这不起作用，请尝试使用 localhost 而不是 127.0.0.1 作为邮件服务器。
2. 如果这不起作用，请尝试使用您的系统名称（显示在网络上的名称）作为邮件服务器。
3. 如果这不起作用，请尝试使用带有您自己的用户名和密码的外部 smtp 服务器（仅用于测试）。
4. 利润。