请大家看下面代码，jmail发送邮件出错，怎么修改？

Question

Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)
    Dim jmail 'dingyi bianliang
    Set jmail = CreateObject("jmail.Message")    
    jmail.Charset = "gb2312"
    jmail.Silent = False
    jmail.Priority = 1
    jmail.MailServerUserName = Trim(EmailName.Text) 'Email帐号
    jmail.MailServerPassWord = Trim(EmailPassword) 'Email密码11111111111111111
    
    jmail.FromName = "杨开锋" '发信人姓名
    jmail.From = Trim(EmailName.Text) '发邮件地址地址
     
    jmail.Subject = Trim(txtServer.Text) & "数据库服务器服务报警" '主题
    jmail.AddRecipient MailTo.Text '收信人地址
    'jmail.Body = sBody '信件正文
    
    jmail.Send (smtpURL.Text)
    
    Set jmail = Nothing
End Sub