vb SMTP发送邮件问题？？？

先把SMTP.ocx控件在系统中注册，在vb中我是这样调用，先建立一个工程，在一个form中，把刚注册SMTP.ocx控件调用出来，拖放在界面上，控件名称改为“SMTP_Test”，代码如下：
With SMTP_Test
.Server = "10.4.250.52"
.Port = 25
.Mailfrom = "smileguo@strcn.com"
.SendTo = "93035426@qq.com"
.MessageSubject = "AA"
.MessageText = "BBB"
.SendEmail
End With

代码测试没有错误，发送都一步步执行，程序没有出任何错误，最后就是对方收不到邮件？？？


请教高手？？

---

" Email.Send "到这里发送失败！！！！


是不是跟网络有关？？？

---

？？/？
还是不行？

---

？？？

---

????????????

---

With SMTP_Test
.Server = "10.4.250.52"
.Port = 25
.Mailfrom = "smileguo@strcn.com"
.SendTo = "93035426@qq.com"
.MessageSubject = "AA"
.MessageText = "BBB"
.SendEmail
End With

我是想用这代码发送 ？？？

---

别人好心帮你，你怎么不听劝呀

唉，不用SMTP.ocx，不知道是否管用，下载个smtp.dll，好用

smtp.dll通过smtp协议发送邮件，为标准windows dll
有两个导出函数
1.SendMail函数 发送邮件主函数
2.GetSmtpError函数 当发送失败时使用该函数取得失败的原因 (比如用户名密码错误)

---

jmail也很不错，稳定性很强，可以一试...