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 = "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服务器,不用验证的话,就可以不用这几行了。