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