vb 用 JMail 出错求教高手！！！！

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 
JMail.Send ("mail.163.com")我换成smtp.163.com 邮箱换成sohu 的也不行 去了括号也不行
应如何办谢谢！！！！！！！！