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

[jumay]

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

[jumay]

红色的地方报错。