报错信息 ：实时错误 ‘-2147418113 （8000ffff）’
the message was undeliverable. all servers failed to receive the message "

Private Sub Command1_Click()
Dim email As New jmail.Message               '定义一个JMail消息对象
Dim sRecipient() As String       '收件人数组
Dim j As Integer
email.Charset = "GB2312"                     '设置使用的字符集
email.From = "yangjianwei_70@sina.com"                           '发件人地址
email.FromName = "yangjianwei_70@sina.com"                 '发件人姓名
email.MailServerPassWord = "13683044689"              '发件人密码
email.AddRecipient "yangjianwei_70@sina.com"            '收件人地址

email.Silent = False
email.Body = "我要试发一个邮件"               '邮件的主要内容
email.Subject = "我的邮件"        '邮件的主题
    
'email.Send "smtp.sina.com", False
email.Send "pop3.sina.com", False
'sss = email.Send("pop3.sina.com.cn", False)
'sss = email.Send("pop.sina.com.cn", False)
'''以上四个send我都试了都不行
email.Close
End Sub