jmail发送邮件的问题

Question

1、把jmail.dll拷入system32下；
2、VB工程添加引用 jmail 4.0 library
3、发送邮件函数：Function SendEmail(smtp As String, SmtpUser As String, SmtpPassword As String, FromName As String, FromEmail As String, toemail As String, ReplyEmail As String, Subject As String, txtbody As String) As Boolean
Dim jm As New jmail.Message
On Error GoTo 88
jm.MailServerUserName = SmtpUser
jm.MailServerPassWord = SmtpPassword
jm.FromName = FromName
jm.From = FromEmail
jm.AddRecipient toemail
jm.ReplyTo = ReplyEmail
jm.Subject = Subject
jm.Body = txtbody
jm.Charset = "gb2312"
jm.Logging = True
jm.Silent = True
If Not jm.Send(smtp) Then
88  SendEmail = False
Else
    SendEmail = True
End If
jm.Close
End Function
执行上面代码，经反复测试，基本能正常发送邮件，但 sina 不行，通过新浪smtp服务器发不出邮件，不知何故，恳望高手指点。SendEmail("smtp.sina.com.cn", "llg_1969", "bfmuusve", "发信人", "[email protected]", "[email protected]", "[email protected]", "你好", "测试邮件正文")

Answer 1

可不可以把Jmail.dll发给我啊？
[email protected]