发邮件的错误

[pangzhenjian]

发邮件时 提示如下错误

“未能访问“CDO.Message”对象。”我查了很多资料还是不能解决，大家帮我解决下

[sunnystar365]

http://www.cnblogs.com/jzywh/archive/2005/06/09/170783.html
http://blog.joycode.com/ghj/archive/2004/10/22/36274.aspx
第一要配置SMTP服务，第一个网址里有
第二是关于杀毒软件的，因为有的杀毒软件会屏蔽掉25端口，第二个网址上有解释,
你可以把杀毒软件先关闭掉
看看是不是上面的两个原因

[fangbuge]

装个EXCHANGE上看看

[godwater8]

可能是杀毒软件问题，我以前就被virus scan这么搞过，停用了就好了

[pangzhenjian]

Try

Dim mail As MailMessage = New MailMessage
mail.To = "[e-mail]"
mail.From = [e-mail]
mail.Subject = title.Text
mail.Body = content.Text
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "pdszxqy")
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "11763037")
SmtpMail.SmtpServer = "smtp.126.com"
SmtpMail.Send(mail)
messages.Visible = True
messages.Text = "<" + "script language='javascript'>alert('祝贺你,发送成功!')" + "<" + "/script>"

Catch ex As Exception
messages.Visible = True
messages.Text = ex.Message


End Try

这样就能发出去邮件
但 mail.From = [e-mail]
换成mail.form=trim(email.text) (email.text指输入的邮箱地址)
就提示“未能访问“CDO.Message”对象。”
我可郁闷

[pangzhenjian]

对不起,这个地方写错了
mail.From = [e-mail]
应为

mail.From = "[e-mail]"

帮我看看