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)