asp jmail 发送带附件的邮件

[冰岛男孩]

<%
EmailSender="[e-mail]"
'发件人名称
SYS_WEBNAME="sales"
'邮件发送服务器地址
EMAILServer="mail.memay.com"
'邮件发送服务器用户名
EMAILServerUser="[e-mail]"
'邮件发送服务器用户密码
EMAILServerPass="passwordsales"
titlemessage="www.memay.com注册信息"

contentmessage="您好，您在www.memay.com已经注册成功，您的登陆用户名是"&user&"密码是："&randKey


Call Jmail(user,titlemessage,contentmessage)


'************************************************************************************
'函数名：Jmail()



'************************************************************************************

Function Jmail(Email,E_Subject,Information)
Dim C_Email,C_HostName,C_Smtp,C_M_User,C_M_Pass
C_Email=EmailSender '发送者的邮箱
C_HostName=SYS_WEBNAME '发送者的名字
C_Smtp=EMAILServer 'Smtp服务器地址
C_M_User=EMAILServerUser '如果Smtp服务器需要验证身份，请输入用户名
C_M_Pass=EMAILServerPass '请输入密码

Dim Sender
Err.Clear
On Error Resume Next
If Email="" Or Information="" Or E_Subject="" Then
Jmail=False
Exit Function
End If
set Sender=Server.CreateObject("Jmail.message")
Sender.Charset="gb2312"
Sender.ISOEncodeHeaders=false
Sender.Logging=true
Sender.From=C_Email
Sender.Fromname=C_HostName
sender.addrecipient Email
sender.subject=E_Subject
sender.AttachFile("E:\pearls.xls")'这行去掉可以发送文字邮件，但我要发送附件，它提示缺少对象，不知什么原因，
Sender.AppendHtml "您好，您在www.memay.com已经注册成功，您的用户名是"&user&"密码是："&randKey
sender.maildomain=C_Smtp
sender.mailserverusername=C_M_User
sender.mailserverpassword=C_M_Pass
sender.Priority = 3
sender.send(C_Smtp)

set sender = nothing


If Err.Number<>0 Then
Jmail=False
Response.write "邮件发送失败！详细错误原因："&Err.Description
Else
Jmail=True
%>

[冰岛男孩]

顶一下！怎么都没人回答啊！我也遇到这种情况了！请高手帮忙啊！

[冰岛男孩]

我试了，还是提示缺少对象啊！高手们快现身啊！

[calmjx]

把
sender.AttachFile("E:\pearls.xls")

修改为
JMail.AddAttachment ("E:\pearls.xls")

[calmjx]

写错，应该是这样：
sender.AddAttachment ("E:\pearls.xls")