VB中使用JMAIL的问题!(VB)高手进!!

form1中有两个文本框，一个按钮。
使用jmail，当单击按钮时把两个文本框内的内容，从一个163邮箱发送到另一个QQ邮箱。
要的是源代码！保证能用的！
谢谢！

我的源代码运行时提示以下问提：

实时错误'-2147418113(8000FFFF)':
The message was undeliverable. All servers failed to receive the message

我的源代码（密码是错的）
Option Explicit

Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)
Dim Jmail
Set Jmail = CreateObject("jmail.Message")
If sFileName <> "" Then Jmail.AddAttachment sFileName

Jmail.Charset = "gb2312"
Jmail.Silent = False
Jmail.Priority = 1
Jmail.MailServerUserName = "yang870shuai@163.com"
Jmail.MailServerPassWord = "123" '

Jmail.FromName = "邮件"
Jmail.From = "yang870shuai@163.com" '

Jmail.Subject = "来信了"
Jmail.AddRecipient "690642614@qq.com"
Jma

VB中使用JMAIL的问题!(VB)高手进!! vb问题：jmail的使用！！ VB 中的Jmail问题 如何在vb中使用Jmail(4.0)发送邮件?? vb问题：使用jmail传送附件问题,谢谢！ 关于jmail的问题 ASP中jmail发信问题 VB 中ReDim的使用问题 有关VB中使用WMI的问题 asp的jmail的问题