asp.net发邮件 - 爱码网

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)