为什么我引用了JMAIL4.0 library， 但还是Active部件不能创建对象

代码是网上搜索下来，如下：
Option Explicit

Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, Optional ByVal sFileName As String)

Dim jmail As Object

Set jmail = CreateObject("jmail.Message ")
If sFileName <> " " Then jmail.AddAttachment sFileName  '附件

jmail.Charset = "gb2312 "
jmail.Silent = False
jmail.Priority = 1 '邮件状态,1-5 1为最高
jmail.MailServerUserName = "****" 'Email帐号
jmail.MailServerPassWord = "****" 'Email密码

jmail.FromName = "邮件 " '发信人姓名
jmail.From = "****@ " '发邮件地址地址

jmail.Subject = sSubject '主题
jmail.AddRecipient "****@ " '收信人地址
jmail.Body = sBody '信件正文

jmail.Send ("smtp. ")  'SMTP服务器，如smtp.

Set jmail = Nothing

End Sub

Sub Command1_Click()
SendMail "测试 ", "我爱你 ", "这里填附件地址 "
MsgBox "OK "
End Sub


百思不得其解，我的系统是windows2003 +vb6，原来用这个组件做windows2003 +asp时都可以的，现在为什么不可以呢？？

隔了几天没来论坛,本想回复这个贴子的,但死活不敢让我回复,非要我结贴....
去掉了前面的空格,三楼正解,是对的..


但随后又出现了下面的错误...
the message was undeliverable .all servers failed to receive the message.
无法投递的消息，所有服务器没有收到消息

我更换了一下其它邮件服务器,也是弹出这个错误代码,能否给个发送邮件正确的代码来参考一下...



是何解???

zhuyongxing ,十分感谢你。这段代码硬实是对的，我也测试过了，没有问题。希望以后也能得到你的指点。

要不是已经结贴了的话，我也一定将分数送给你。。

这样看来，还应该是那代段有问题的了。。。。我目前还没有办法找出我上顼的代码问题出在哪里？？？（不过也是我从网上搜索来的。。。。）

为何加了，JmailMsg.AddAttachment = "f:\狗.jpg"        ' attachFile
      这句报错，提示“实时错误438，对象不支持该属性或方法”


网上搜索了是应该这样写的呀？？
怎样才能发送邮件附件呢？？

邮件是能收到,但加了附件会不会乱码,我在代码里了加了你的一条:
    If sFileName <> "\" Then Jmail.AddAttachment sFileName '附件就会有乱码的情况
而且附件不是显示为附件,好象是在正文里一样,不加附件时,邮件能正常显示
Private Sub Command1_Click()
'send email
    Subject = "VBA" '邮件标题
    Body = "VBA SEND EMAIL" ' 邮件内容
   '     Body 邮件内容
    isHtml = True '   是否发送Html格式邮件 (true 是)
    HtmlBody = "VB SEND EMAIL这是一个用VB发过来的邮件 " ' Html格式邮件内容"
    MailTo = "zjk_75@ ' 收件人Email
    From = "yiyaozjk@ '     '发件人Email
    FromName = "test" '发件人姓名
    Smtp = "smtp.  'smtp服务器
    Username = "yiyaozjk@ '邮箱用户名
    Password = "zjk19750926" '邮箱密码
    sFileName = "f:\狗3.jpg"
Dim JmailMsg
'Set JmailMsg = server.CreateObject("jmail.message")
Set JmailMsg = New Jmail.Message
If sFileName <> "\" Then JmailMsg.AddAttachment sFileName '附件

JmailMsg.MailServerUserName = Username '如果是在局域网中可以不要验证
JmailMsg.MailServerPassWord = Password

JmailMsg.AddRecipient MailTo
JmailMsg.From = From
JmailMsg.FromName = FromName

JmailMsg.Charset = "gb2312"
JmailMsg.ContentType = "text/plain" ' "text/html"
JmailMsg.Priority = 1   '邮件状态,1-5 1为最高
JmailMsg.Logging = True
JmailMsg.Silent = True

JmailMsg.Subject = Subject
'JmailMsg.AddAttachment ("f:\狗5.rar")   ''不能加这句，加了这句会乱码的
JmailMsg.HtmlBody = HtmlBody
If Not JmailMsg.Send(Smtp) Then
   MsgBox ("发送失败")
Else
   MsgBox ("发送ok")
End If
JmailMsg.Close
Set JmailMsg = Nothing
End Sub

不知道是什么原因...?????