imports
system.web.mail
主要发送代码如下
Dim
mail
As
MailMessage
=
New
MailMessage mail.
To
=
"
heqiang01@163.com,aowind@163.com"
mail.From
=
"
aowind@163.com"
mail.Subject
=
"
this is a test email."
mail.Body
=
"
<b>Some text goes here</b> "
mail.BodyFormat
=
MailFormat.Html
'
设置为HTML格式
mail.Fields.Add(
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") '设置为需要用户验证
mail.Fields.Add(
"http://schemas.microsoft.com/cdo/configuration/sendusername", "aowind") '设置验证用户名
mail.Fields.Add(
"http://schemas.microsoft.com/cdo/configuration/sendpassword", "xxxxxx") '设置验证密码
SmtpMail.SmtpServer
=
"
smtp.163.com
"
'
邮件服务器地址
SmtpMail.Send(mail)
在mail.to这里所赋的值是收信人的地址，可以写多个，用","分隔就行了。
关键在于是需要身份验证的，所以红底这里几句就是实现身份验证的代码，感谢听棠兄。
当然自己架设的mail服务器，不用验证的话，就可以不用这几行了。
