<%
'Parameter description
'Subject : Email Title
'MailAddress : The address of the sending server, such as smtp.
'Email : Recipient’s email address
'Sender : Sender's name
'Content : Email content
'Fromer : The sender's email address
Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = ("") 'Create a JMAIL object
= true 'JMAIL will not throw exception errors, the returned values are FALSE and TRUE
= true 'Enable usage log
= "GB2312" 'The code of the email text is Simplified Chinese
= "text/html" 'The format of the email is HTML
= mailaddress 'The server that sends the mail
Email 'The recipient of the email
= sender 'The name of the sender of the email
= fromer 'The email address of the sender
= 1 'Emergency Program for Mail, 1 is the fastest, 5 is the slowest, and 3 is the default value
= subject 'The title of the email
= content 'The content of the email
'Since there is no use of secret copy and cc, these two sentences are blocked here. If you need it, you can restore it here.
'Email 'The address of the recipient of the password
'Email 'The address of the cc user
() 'Execute email sending
'Close the mail object
End Sub
'Example of calling this Sub
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "This is a test email sent with JMAIL"
strContent = "The JMail component sending test was successful!"
strEmail = "runbing@"
strFromer = "runbing@"
strMailAddress = ""
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>