ASP sends mail with JMail and CDO

Some time ago has sent a simple jmail mail email code, today this code to make a specific annotation, and add two other formats of code, with a few simple examples:
The first is Jmail.smtpmail's core code:

<%
Set JMail = Server.CreateObject ("JMail. SmtpMail ")" Creates a JMail object
Jmail.silent = True ' JMail does not throw an exception error and returns a value of false and True
Jmail.logging = True ' Enable use of logs
JMail. Charset = "GB2312" The code for the message text is Simplified Chinese
JMail. ContentType = "text/html" The format of the message is HTML
JMail. ServerAddress = "server address" ' Sending a message
JMail. AddRecipient Email ' recipient of email '
JMail. SenderName = "SenderName" ' Mail sender's name
JMail. Sender = "Email address" ' e-mail addresses of senders
JMail. Priority = 1 ' Mail emergency program, 1 for fastest, 5 for slowest, 3 for default value
JMail. Subject = "Mail Subject" ' Title of Message
JMail. BODY = contents of mail body
JMail. ADDRECIPIENTBCC Email ' BCC Recipient's address
JMail. ADDRECIPIENTCC email ' cc's address
JMail. Execute () ' Send mail
JMail. Close ' Closes the mail object
%>

The W3 Jmail4.3 component has redesigned its internal structure--using the Message object instead of the original single object jmail.smtpmail sending mail, and some methods that require authentication (such as 163, Yahoo, etc.) can be resolved in the following ways:
<%
Set JMail = Server.CreateObject ("JMail. Message ")" To create an object to send mail
Jmail.silent = True ' Mask exception error, return False to true two value J
Mail.logging = True ' Enable mail logging
JMail. Charset = "GB2312" ' Text encoding for the message is GB
JMail. ContentType = "text/html" The format of the message is HTML format
JMail. AddRecipient Email ' Address of Mail Recipient
JMail. from = "Email from to Sender" ' E-mail address of sender
JMail. Mailserverusername = "UserName of email" ' User name required to log on to the mail server
JMail. Mailserverpassword = "Password of email" ' Password required to log in to the mail server
JMail. Subject = "Mail Subject" ' Title of Message
JMail. BODY = contents of mail body
JMail. prority = 1 ' Mail emergency program, 1 for fastest, 5 for slowest, 3 for default value
JMail. Send ("server address") ' Perform mail delivery (via mail server addresses)
JMail. Close () ' Closes object
%>

Again, Microsoft's own CDONTS components of the way to send a letter:

<%
Set Cdomail = Server.CreateObject ("CDONTS. NewMail ")" Create mail object
Cdomail. Subject = "Mail Subject" ' Message headers
Cdomail. from = "Sender ' s Mail" ' sender's address
Cdomail. to = "Email would from" ' Recipient's address
Cdomail. BODY = contents of mail body
Cdomail. Send ' performs sending
%>

This method of sending mail is the simplest, but also brings a certain problem, that is very few servers will open this service!

We write programs, under normal circumstances are said to code modular, so convenient maintenance, but also easy to transplant. So I'm here to write a subroutine for this email, which can be invoked directly (of course, if you're happy to write a function, this is mainly about personal interest):

<%
' Parameter description
' Subject: Message headers
' MailAddress: Address of the outgoing server, such as smtp.163.com
' Email: Recipient email Address
' Sender: Name of sender
' Content: Message contents
' Fromer: Sender's email address

Sub sendaction (subject, mailaddress, email, sender, content, Fromer)
Set JMail = Server.CreateObject ("JMail. SmtpMail ")" Creates a JMail object
Jmail.silent = True ' JMail does not throw an exception error and returns a value of false and True
Jmail.logging = True ' Enable use of logs
JMail. Charset = "GB2312" The code for the message text is Simplified Chinese
JMail. ContentType = "text/html" The format of the message is HTML
JMail. serveraddress = MailAddress ' send mail to server
JMail. AddRecipient Email ' recipient of email '
JMail. SenderName = Sender ' The name of the person who sent the message
JMail. Sender = Fromer ' e-mail address of the sender
JMail. Priority = 1 ' Mail emergency program, 1 for fastest, 5 for slowest, 3 for default value
JMail. Subject = Subject ' The title of the message
JMail. Contents of BODY = Content ' message
' Because there is no use of copy and CC, here is a block of these two sentences, if you need to, you can restore here
' JMail. ADDRECIPIENTBCC Email ' BCC Recipient's address
' JMail. ADDRECIPIENTCC email ' cc's address
JMail. Execute () ' Send mail
JMail. Close ' Closes the mail object
End Sub

' The example of calling this sub
Dim Strsubject,stremail,strmailadress,strsender,strcontent,strfromer
Strsubject = "This is a test message sent with JMail."
Strcontent = "JMail component Send test success!" "
Stremail = "runbing@eyou.com"
Strfromer = "runbing@eyou.com"
strmailaddress = "Mail.ubbcn.com"

Call SendAction (Strsubject,strmailaddress,stremail,strsender,strcontent,strfromer)
%>

Above is I to send the mail code a rough opinion, forgets everybody to enlighten!

Turn from: Dynamic Network production guide www.knowsky.com