asp使用Jmail发送带doc类型附件的邮件

<%

'生成doc文档的方法
Sub CreateWord(filename,lessonCode,stuName,lessonDate)
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(filename, True)
MyFile.WriteLine("您的听课信息如下：")
MyFile.WriteLine("申请者："&stuName)
MyFile.WriteLine("听课证编号："&lessonCode)
MyFile.WriteLine("课程时间："&lessonDate)
MyFile.Close
Set fso = Nothing 
End Sub 

'发送邮件（带附件）
Public Function SendMail(MailTitle,GetMailMan,MailBody,SendFrom,SendName,SendUser,SendPwd,SendSmtp,Attachment)
'On Error Resume Next
if SendName="" then
	SendName="邮件测试"
end if
if SendFrom="" then
	SendFrom = "发件人邮箱"
end if
if SendUser="" then
	SendUser = "发件人邮箱" 
end if
if SendPwd="" then
	SendPwd = "发件人邮箱密码"
end if
if SendSmtp="" then
	SendSmtp = "邮箱smtp地址"
end if

dim Jms
Set Jms = Server.CreateObject("jmail.Message")
Jms.Charset = "GB2312" 
'Jms.ContentType = "text/html"

Jms.Subject = MailTitle 
Jms.AddRecipient(GetMailMan)
Jms.HTMLBody=MailBody
if Attachment<>"" then
	Jms.AddAttachment Attachment,true
end if
Jms.From = SendFrom 
Jms.FromName = SendName 

Jms.MailServerUserName = SendUser
Jms.MailServerPassWord = SendPwd
Jms.Send(SendSmtp)

Jms.Close()
Set Jms = Nothing
If Err.number <> 0 then    
'response.Write( "mail send failed!"& Err.DescriptionElse)
else
'response.Write("mail send successed!")
End If

'Response.Write err.Description
'Response.end
End Function

%>