easymail 组件发送邮件说明

Function SendEasyMail(Email,Topic,MailBody,TextBody)
 'on error resume next
 dim Mailsend
 set Mailsend = Server.CreateObject("easymail.Mailsend")
 Dim Tid,Un
 yy=Year(Now())
 mm=Month(Now())
 dd=Day(Now())
 hh=Hour(Now())
 mi=Minute(Now())
 se=Second(Now())
 If len(mm)=1 Then mm="0" & mm
 If len(dd)=1 Then dd="0" & dd
 If len(hh)=1 Then hh="0" & hh
 If len(mi)=1 Then mi="0" & mi
 If len(se)=1 Then se="0" & se
 Dim sRnd
 Randomize
 sRnd = Int(900 * Rnd) + 100
 
 Tid=yy & mm & dd & hh & mi & se & "_" & sRnd
 Un = " admin@system.mail"    '您的邮件服务器登录名，不需要密码
 
 Dim EI
 Set EI = server.CreateObject("easymail.Users")
 Tid = EI.Login(un)
 Set EI = Nothing
 Mailsend.createnew Un,Tid '邮箱账号,临时ID
 Mailsend.CharSet = "gb2312"    '编码
 Mailsend.MailName = "LeadBBS"    '发件人名
 
 Mailsend.EM_BackAddress = "" '邮件回复地址
 Mailsend.EM_Bcc = "" '暗送地址
 Mailsend.EM_Cc = "" '抄送地址
 Mailsend.EM_OrMailName = "" '原邮件名
 Mailsend.EM_Priority = "Normal" '邮件重要度     
 Mailsend.EM_ReadBack = false '是否读取确认,挂号信(限本系统内用户)     
 Mailsend.EM_SignNo = -1    '使用签名的序号
 
 Mailsend.EM_Subject = Topic '主题
 Mailsend.EM_Text = TextBody '内容
 Mailsend.EM_HTML_Text = MailBody 'HTML邮件内容
 Mailsend.useRichEditer = true '发送的是否为HTML格式邮件
 
 Mailsend.EM_TimerSend = ""    '定时发送的时间
 Mailsend.EM_To = Email '收件人地址
 Mailsend.ForwardAttString = "" '转发邮件时的原附件
 
 Mailsend.AddFromAttFileString = "" '添加自网络存储中的文件名
 
 Mailsend.SystemMessage = false '是否是系统邮件
 
 Mailsend.SendBackup = false '是否保存发送邮件
 
 If Mailsend.Send() = false Then
   SendEasyMail = 0
 Else
   SendEasyMail = 1
 End If
 Set Mailsend = nothing
End Function