关于vb.net发邮件的问题，求救高手帮忙。

[etogo]

我的程序如下：
Dim Mail As MailMessage = New MailMessage

Mail.To = "[e-mail]"
Mail.From = "[e-mail]"
Mail.Subject = "subject"
Mail.Body = "body"

Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "etogo")
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "25454800")

SmtpMail.SmtpServer = "smtp.126.com"
SmtpMail.Send(Mail)

End Sub

但是运行后，系统出错说： 邮件无法发送到 SMTP 服务器。传输错误代码为 0x80040217。服务器响应为 not available 。

我是注册的126的邮箱，用户名，密码都正确，但是为什么不能发送到SMTP
服务器呢，是不是我的SMTP 设置有问题，该怎么设置呢，求高手解答，谢谢

[dlzhangln]

http://blog.csdn.net/lihonggen0/archive/2003/03/10/13631.aspx

[etogo]

你好首先谢谢您的答复，我想问一下，使用您说的Jmail组件是不是还是需要下载这个组件？

[exing]

现在大多数服务器发送要求身份验证的