邮件发送不成功

[sz_lgp]

我写的一段邮件发送程序如下：（己经Imports　system.web.mail)

　　　Dim myMessage As New system.web.mail.MailMessage
Dim myMail As System.Web.Mail.SmtpMail

'为什么不能Dim myMail As new System.Web.Mail.SmtpMail 说是Smtmail的NEW（）是private的。

myMessage.From = "[e-mail]"
myMessage.To = TextBox4.Text
myMessage.Subject = TextBox7.Text
myMessage.Body = RichTextBox1.Text
myMessage.BodyFormat = MailFormat.Text
myMessage.Priority = MailPriority.Normal
myMail.SmtpServer = "188.188.188.53" ’我的服务器地址,在ISS中断中有设定
myMail.Send(myMessage)

错误提示：未能访问“CDO.Message”对象

[HZCNC]

给你个简单例子:
Try
Dim mail As New MailMessage
mail.To = "[e-mail]"'收件人信箱
mail.Cc = "[e-mail]"'抄送
mail.From = "[e-mail]"'发件人邮箱,必须为有效邮箱格式不然会出现"CDO.Message"错误
mail.Subject ="Hello World!"'邮件主题
mail.Body = "How Are U!"'邮件内容
Dim attachment As New MailAttachment(Server.MapPath(c:\test.txt))'附件
mail.Attachments.Add(attachment)
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "UserName") 'SMTP用户名
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "oldbi")'SMTP密码
SmtpMail.SmtpServer = "127.0.0.1"'SMTP服务器地址
SmtpMail.Send(mail)'发送

Catch ex As Exception

msgbox ex.Message
End Try

[wangchaocn]

HZCNC(流浪的草鞋) 给的例子试验成功
哪位能提供一下收邮件的Vb.net源码

[rainmanguo]

我怎么不能引用system.web.mail?