ASP uses JMail to send mail code

You can use the JMail component before using OH.
Sub JMail (Email,topic,mailbody)
On Error Resume Next
Dim JMail
Set jmail=server.createobject ("Jmail.message")
Jmail.silent=true
Jmail.logging=true
jmail.charset= "gb2312"
If Not (Newasp.mailusername = "" Or Newasp.mailpassword = "") Then
Jmail.mailserverusername = Newasp.mailusername ' your mail server login name
Jmail.mailserverpassword = Newasp.mailpassword ' login password
End If
Jmail.contenttype = "Text/html"
jmail.priority = 1
Jmail.maildomain = "govery.cn"
Jmail.from = Newasp.mailfrom ' e-mail address
Jmail.fromname = Newasp.sitename ' site name
Jmail.addrecipient Email
Jmail.subject = Topic
Jmail.body = Mailbody
If Err <> 0 Then
Sendmail= "False"
Else
Jmail.send (newasp.mailserver) ' Send mail server address
Jmail.clearrecipients ()
If Err <> 0 Then
Sendmail= "False"
Else
Sendmail= "OK"
End If
End If
Set jmail=nothing
End Sub