我在网上找了很多示例,都不能用的,如果有人出的代码真正能够使用的,我会把分值加到100,不然就有点浪费,嘿嘿~~谢谢大家`~

解决方案 »

  1.   

    这段我测试过可以用,可是不知道怎么支持HMTL发送。Imports System.Web.Mail
    ----------------------------------  '在此处放置初始化页的用户代码
            Dim email As New System.Web.Mail.MailMessage
            email.To = "[email protected]"
            email.From = "[email protected]"
            email.Body = "8888888888888888888888888888888888888"
            email.Subject = "99999999999999999999999999999999999999"
            email.BodyFormat = Web.Mail.MailFormat.Text        email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
            '将以下三行中中的,第2个参数,设为你的smtp相应值,即可
            email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "210.51.180.238")
            email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "[email protected]")
            email.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "*******")        System.Web.Mail.SmtpMail.Send(email)