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:
Program 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
%>
There are still a number of programs that use this method to send letters, and there is a big flaw in the way that letters are sent using the server's local SMTP service and are not authenticated by any SMTP
If the server is set up to use authentication, the letter will fail. Now because of the anti-spam needs, more and more servers are starting to focus on this problem, if you use this method to send a letter suddenly abnormal,
It may be that the server restricts anonymous letters, and the code above will not function properly.
This method is not recommended, but there are many ASP programs that use this method, may still work, but it is difficult to ensure that the future will continue to be normal, and some mail server will reject the method sent letters, so if possible, try not to use this way.
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:
Program code
<%
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
%>
Using this code to send a letter, is currently the most stable, but also the most applicable to the letter method, we recommend the use of JMail letter to the customer, use this method to send a letter.
Again, Microsoft's own CDONTS components of the way to send a letter:
Program code
<%
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
%>
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):
Recommended
Copy Code code as follows:
<%
' 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)
%>
