VB中的电子邮件功能

Question

我需要一个简单的电子邮件功能，只需发送一封电子邮件（不要向我保证的任何人发送垃圾邮件！）。

任何人，有人吗？使用VB 2008

Answer 1

使用SmtpClient类执行此操作。有一个在文档页面上异步发送电子邮件的示例，但这是一个基本的方法：

Dim client As New SmtpClient("mail.myisp.com")

Dim fromAddr As New MailAddress("jane@contoso.com")
Dim toAddr As New MailAddress("ben@contoso.com")
Dim message As New MailMessage(fromAddr, toAddr)
message.Body = "This is a test e-mail message sent by an application. "
message.Subject = "test message 1"

client.Send(message)