PublicSharedFunction sendMail(ByVal host AsString, ByVal userName AsString, ByVal pwd AsString, ByVal ssl AsBoolean, ByVal from AsString, ByVal too AsString, ByVal subject AsString, ByVal body AsString) AsBoolean Dim mail As System.Net.Mail.SmtpClient =New System.Net.Mail.SmtpClient mail.Host = host mail.Credentials =New System.Net.NetworkCredential(userName, pwd) mail.EnableSsl = ssl Dim message As System.Net.Mail.MailMessage =New System.Net.Mail.MailMessage(from, too) message.Body = body message.Body += DateTime.Now.ToLocalTime message.Subject = subject message.SubjectEncoding = System.Text.Encoding.GetEncoding("gb2312") message.BodyEncoding = System.Text.Encoding.GetEncoding("gb2312") message.IsBodyHtml =True Try mail.Send(message) ReturnTrue Catch ex As Exception ReturnFalse EndTry End Function
调用的时候可以这样写
ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click If (sendMail("smtp.163.com ", "yangyang", "123", False, "yangyang@163.com", "huangzhi_mail@163.com", "看看", "信件内容")) Then Me.Label1.Text ="发送成功" Else Me.Label1.Text ="发送失败" EndIf End Sub
http://www.cnblogs.com/yangboshan/archive/2007/07/27/833248.html首先引用命名空间Imports System.Web.Mail下面是发送邮件的函数 Public Shared Function sendMail(ByVal host As String, ByVal userName As String, By