急急急高手来谢谢！！！！！！！！VB 用JMail发东西出错！！！！

Question

Dim JMail
Set JMail = CreateObject("jmail.Message")
JMail.Charset = "gb2312"
JMail.Silent = False
JMail.MailServerUserName = "[email protected] " 'Email帐号
JMail.MailServerPassWord = "++++++" 'Email密码
JMail.FromName = "[email protected]" '发信人姓名
JMail.From = "[email protected] " '发邮件地址地址
JMail.Subject = "来信了" '主题
JMail.AddRecipient "[email protected]" '收信人地址
JMail.Body = Text1.Text & Text2.Text
JMail.Send ("mail.163.com") 'SMTP服务器，如smtp.sohu.com
Set JMail = Nothing
运行后提示：the   message   was   undeliverable.All   servers   failed   to   receive   the   message 
这应如何办谢谢！！！！！！！！