Imports System.Web.Mail
Imports System.Web.Util
Imports System.Xml
Imports System.Xml.XPath
Dim m As Mail.MailMessage = New Mail.MailMessage
'/**////发件人地址
Dim strmail As String = ConfigurationSettings.AppSettings("mailadd")
Dim strmailpwd As String = ConfigurationSettings.AppSettings("mailpwd")
m.From = strmail ' txtemail.Text
'收件
m.To = ConfigurationSettings.AppSettings("mailTo")
m.Subject = "网站信息反馈"
' /**////邮件内容
Dim strbody As String
strbody = "客户名称:" + txtname.Text + Chr(10)
strbody = strbody + "邮箱:" + txtemail.Text + Chr(10)
strbody = strbody + "区域:" + txtarea.Text + Chr(10)
strbody = strbody + "电话:" + txttel.Text + Chr(10)
strbody = strbody + "品牌:" + dlpp.SelectedItem.Text + Chr(10)
strbody = strbody + "车型:" + dlmod.SelectedItem.Text + Chr(10)
strbody = strbody + "车型颜色:" + dlcl.SelectedItem.Text + Chr(10)
m.Body = strbody
' /**////优先级
m.Priority = MailPriority.Normal
' /**////设置邮件格式
m.BodyFormat = MailFormat.Text
'//设置为需要用户验证
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
' //设置验证用户名(把emailaddress改为你的验证用户名)
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", strmail)
' //设置验证密码(把password改为你的验证密码)
m.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", strmailpwd)
' //MM.Fields.Add("http://
SmtpMail.SmtpServer = "smtp.tom.com" '//邮件服务器地址
' /**////发送邮件
SmtpMail.Send(m)