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)