VB jmail 代码出错

看不全你的代码啊，给你个Jmail发邮件的过程吧：

Sub SendMail()
    Dim jmail As Object
    Set jmail = CreateObject("JMAIL.Message") ';建立发送邮件的对象
    jmail.Silent = True ''一般不用改
    jmail.Charset = "gb2312" ''信件的语言编码
    jmail.From = "****@163.com" ''发信人邮箱
    jmail.FromName = "****" ''发信人姓名
    jmail.Subject = "" ''信件主题
    jmail.AddRecipient "****" ''收信人地址
    jmail.Body = "" ''信件正文
    jmail.MailServerUserName = "****" ''服务器登陆用户名(您的邮件地址)
    jmail.MailServerPassWord = "****" ''服务器登陆密码(您的邮件密码)
    jmail.Send ("smtp.163.com") ''服务器地址
    jmail.Close
    Set jmail = Nothing
End Sub

这个没问题的。