使用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. 利润。