ASP uses Jmail.smtpmail to send e-mail programs

Public Function Sendjmail (Email,topic,mailbody,gb_ip,sys_mailbox)
Dim JMail
Set JMail = Server.CreateObject ("Jmail.smtpmail")
Jmail.lazysend = True
Jmail.silent = True
Jmail.charset = "gb2312"
Jmail.contenttype = "Text/html"
Jmail.sender = Sys_mailbox '
Jmail.replyto = Sys_mailbox '
Jmail.sendername = Cfg.webname
Jmail.subject = Topic
Jmail.simplelayout = True
Jmail.body = Mailbody
jmail.priority = 1
Jmail.addrecipient Email
Jmail.addheader "Originating-ip", gb_ip
If Jmail.execute () = False Then
Sendjmail = 0
Else
Sendjmail = 1
End If
Jmail.close
Set JMail = Nothing
End Function
' Use method
Sendjmail ("111cn@111cn.net", "AA", "Content", "127.0.0.1", "AA")
%>