如何通过vb.net应用程序发送电子邮件？

我正在做我的学期专题，这是一个电子商务应用程序的Windows版本。我想向我的用户发送有关注册、销售和进一步更新的电子邮件。

10s谷歌搜索为您提供10k答案

使用.net发送邮件的最简单方法是使用

System.net.mail

命名空间和smtp服务器，在该服务器上您有一个类似mostlikely Gmail的电子邮件帐户

Imports System.Net.Mail

Module Module1

Sub Main()

    Try

        Dim SmtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        SmtpServer.UseDefaultCredentials = False
        SmtpServer.Credentials = New Net.NetworkCredential("youremailaddress@gmail.com", "yourpassword")
        SmtpServer.EnableSsl = True
        SmtpServer.Port = 465
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network

        mail = New MailMessage
        mail.From = New MailAddress("from@email.address")
        mail.To.Add("to@email.address")
        mail.Subject = "This is the subject"
        mail.Body = "This is the body"

        SmtpServer.Send(mail)

    Catch ex As Exception

        MsgBox(Err.Number & vbNewLine & ex.Message)

    End Try

End Sub

End Module

如果这不起作用，提示：

• 手动检查您的网络凭据

• 查看您的防病毒事件日志，就好像您使用McAfee一样，

  System.Net.Mail

  将被您自己的保护作为垃圾邮件蠕虫阻止

• 使用

  CDOSYS

  方法发送邮件

• 使用Microsoft.Office.Interop.Outlook方法发送邮件

• 用于测试与SMTP服务器的通信

---

对于本网站来说，这不是一个合适的问题，可能会因为过于宽泛而被搁置。如果你能向我们展示你所做的尝试，以及你在这方面遇到的困难，那么有人能够提供帮助。只有付出合理努力的问题才会在这里得到最好的帮助。