Jmail\u53d1\u90ae\u4ef6\u4ee3\u7801,2005-6-2\u7248
<%
Dim SendStat
SendStat = Jmail("Dove.163@163.com","Test Jmail","Just a test!","US-ASCII","text\/plain")
Response.Write SendStat
%>
<%
'——————————————————————–
Function Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'——————————————————————–
'JMail
'——————————————————————–
'\u5165\u53e3\u53c2\u6570\uff1a
'\u3000\u3000\u3000\u3000mailTo \u6536\u4ef6\u4ebaemail\u5730\u5740
'\u3000\u3000\u3000\u3000mailTopic \u90ae\u4ef6\u4e3b\u9898
'\u3000\u3000\u3000\u3000mailBody \u90ae\u4ef6\u6b63\u6587(\u5185\u5bb9)
'\u3000\u3000\u3000\u3000mailCharset \u90ae\u4ef6\u5b57\u7b26\u96c6\uff0c\u4f8b\u5982GB2312\u6216US-ASCII
'\u3000\u3000\u3000\u3000mailContentType \u90ae\u4ef6\u6b63\u6587\u683c\u5f0f\uff0c\u4f8b\u5982text\/plain\u6216text\/html
'\u8fd4\u56de\u503c\uff1a
'\u3000\u3000\u3000\u3000\u5b57\u7b26\u4e32\uff0c\u53d1\u9001\u6210\u529f\u540e\u8fd4\u56deOK\uff0c\u4e0d\u6210\u529f\u8fd4\u56de\u9519\u8bef\u4fe1\u606f
'\u4f7f\u7528\u65b9\u6cd5\uff1a
'\u3000\u3000\u3000\u30001)\u8bbe\u7f6e\u597d\u5e38\u91cf\uff0c\u5373\u4ee5Const\u5f00\u5934\u7684\u53d8\u91cf
'\u3000\u3000\u3000\u30002)\u4f7f\u7528\u7c7b\u4f3c\u5982\u4e0b\u4ee3\u7801\u53d1\u4fe1
'Dim SendStat
'SendStat = Jmail("aa@163.com","\u6d4b\u8bd5Jmail","\u8fd9\u662f\u4e00\u5c01<br\/>\u6d4b\u8bd5\u4fe1\uff01","GB2312","text\/html")
'Response.Write SendStat
'\u4f5c\u8005\uff1a
'\u3000\u3000\u3000\u3000\u5348\u591c\u72c2\u9f99(Madpolice) madpolice_dong@hotmail.com 2005\u5e746\u67082\u65e5\u7248
'——————————————————————–<\/p>\n
'***************\u6839\u636e\u9700\u8981\u8bbe\u7f6e\u5e38\u91cf\u5f00\u59cb*****************
Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword<\/p>\n
ConstFromNameCn = ""'\u53d1\u4fe1\u4eba\u4e2d\u6587\u59d3\u540d(\u53d1\u4e2d\u6587\u90ae\u4ef6\u7684\u65f6\u5019\u4f7f\u7528)\uff0c\u4f8b\u5982\u2018\u5f20\u4e09\u2019
ConstFromNameEn = ""'\u53d1\u4fe1\u4eba\u82f1\u6587\u59d3\u540d(\u53d1\u82f1\u6587\u90ae\u4ef6\u7684\u65f6\u5019\u4f7f\u7528)\uff0c\u4f8b\u5982\u2018zhangsan\u2019
ConstFrom = ""'\u53d1\u4fe1\u4eba\u90ae\u4ef6\u5730\u5740\uff0c\u4f8b\u5982\u2018Shakerd@163.com\u2019
ConstMailDomain = ""'smtp\u670d\u52a1\u5668\u5730\u5740\uff0c\u4f8b\u5982smtp.163.com
ConstMailServerUserName = ""'smtp\u670d\u52a1\u5668\u7684\u4fe1\u7bb1\u767b\u9646\u540d\uff0c\u4f8b\u5982\u2018zhangsan\u2019\u3002\u6ce8\u610f\u8981\u4e0e\u53d1\u4fe1\u4eba\u90ae\u4ef6\u5730\u5740\u4e00\u81f4\uff01
ConstMailServerPassword = ""'smtp\u670d\u52a1\u5668\u7684\u4fe1\u7bb1\u767b\u9646\u5bc6\u7801
'***************\u6839\u636e\u9700\u8981\u8bbe\u7f6e\u5e38\u91cf\u7ed3\u675f*****************<\/p>\n
'—————————–\u4ee5\u4e0b\u5185\u5bb9\u65e0\u9700\u6539\u52a8——————————
On Error Resume Next
Dim myJmail
Set myJmail = Server.CreateObject("JMail.Message")
myJmail.Logging = True'\u8bb0\u5f55\u65e5\u5fd7
myJmail.ISOEncodeHeaders = False'\u90ae\u4ef6\u5934\u4e0d\u4f7f\u7528ISO-8859-1\u7f16\u7801
myJmail.ContentTransferEncoding = "base64"'\u90ae\u4ef6\u7f16\u7801\u8bbe\u4e3abase64
myJmail.AddHeader "Priority","3"'\u6dfb\u52a0\u90ae\u4ef6\u5934,\u4e0d\u8981\u6539\u52a8\uff01
myJmail.AddHeader "MSMail-Priority","Normal"'\u6dfb\u52a0\u90ae\u4ef6\u5934,\u4e0d\u8981\u6539\u52a8\uff01
myJmail.AddHeader "Mailer","Microsoft Outlook Express 6.00.2800.1437"'\u6dfb\u52a0\u90ae\u4ef6\u5934,\u4e0d\u8981\u6539\u52a8\uff01
myJmail.AddHeader "MimeOLE","Produced By Microsoft MimeOLE V6.00.2800.1441"'\u6dfb\u52a0\u90ae\u4ef6\u5934,\u4e0d\u8981\u6539\u52a8\uff01
myJmail.Charset = mailCharset
myJmail.ContentType = mailContentType<\/p>\n
If UCase(mailCharset) = "GB2312" Then
myJmail.FromName = ConstFromNameCn
Else
myJmail.FromName = ConstFromNameEn
End If<\/p>\n
myJmail.From = ConstFrom
myJmail.Subject = mailTopic
myJmail.Body = mailBody
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Send ConstMailDomain
myJmail.Close
Set myJmail=nothing <\/p>\n
If Err Then
Jmail=Err.Description
Err.Clear
Else
Jmail="OK"
End If<\/p>\n
On Error Goto 0
End Function
'——————————————————————–
%><\/p>\n
\u8bf4\u660e\uff1a\u66f4\u591a\u7684\u4fe1\u606f\u8bf7\u53c2\u8003Jmail\u8bf4\u660e\uff0c\u6211\u60f3\u8fd9\u5df2\u7ecf\u8db3\u591f\u7528\u7684\u4e86\u3002<\/p>\n
\uff081\uff09Body\uff08\u4fe1\u4ef6\u6b63\u6587\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u5982\uff1aJMail.Body = "\u8fd9\u91cc\u53ef\u4ee5\u662f\u7528\u6237\u586b\u5199\u7684\u8868\u5355\u5185\u5bb9\uff0c\u53ef\u4ee5\u53d6\u81eaFrom\u3002"<\/p>\n
\uff082\uff09Charset\uff08\u5b57\u7b26\u96c6\uff0c\u7f3a\u7701\u4e3a"US-ASCII"\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u5982\uff1aJMail.Charset = "US-ASCII" <\/p>\n
\uff083\uff09ContentTransferEncoding : \u5b57\u7b26\u4e32<\/p>\n
\u6307\u5b9a\u5185\u5bb9\u4f20\u9001\u65f6\u7684\u7f16\u7801\u65b9\u5f0f\uff0c\u7f3a\u7701\u662f"Quoted-Printable"
\u5982\uff1aJMail.ContentTransferEncoding = "base64"<\/p>\n
\uff084\uff09ContentType\uff08\u4fe1\u4ef6\u7684contentype. \u7f3a\u7701\u662f"text\/plain"\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u5982\u679c\u4f60\u4ee5HTML\u683c\u5f0f\u53d1\u9001\u90ae\u4ef6, \u6539\u4e3a"text\/html"\u5373\u53ef\u3002
\u5982\uff1aJMail.ContentType = "text\/html"<\/p>\n
\uff085\uff09Encoding : \u5b57\u7b26\u4e32<\/p>\n
\u8bbe\u7f6e\u9644\u4ef6\u7f16\u7801\u65b9\u5f0f\uff08\u7f3a\u7701\u662f"base64\uff09\u3002 \u53ef\u4ee5\u9009\u62e9\u4f7f\u7528\u7684\u662f"base64", "uuencode" or "quoted-printable"
\u5982\uff1aJMail.Encoding = "base64"<\/p>\n
\uff086\uff09Log\uff08Jmail\u521b\u5efa\u7684\u65e5\u5fd7\uff0c\u524d\u63d0loging\u5c5e\u6027\u8bbe\u7f6e\u4e3atrue\uff0c\u89c1\u4e0b\u9762\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u5982\uff1a\u4f7f\u7528Response.Write( JMail.Log )\u8bed\u53e5\u5217\u51fa\u65e5\u5fd7\u4fe1\u606f\u3002<\/p>\n
\uff087\uff09Logging\uff08\u662f\u5426\u4f7f\u7528\u65e5\u5fd7\uff09 : \u5e03\u5c14\u578b<\/p>\n
\u5982\uff1aJMail.Logging = true<\/p>\n
\uff088\uff09Recipients : \u5b57\u7b26\u4e32<\/p>\n
\u53ea\u8bfb\u5c5e\u6027\uff0c\u8fd4\u56de\u6240\u6709\u6536\u4ef6\u4eba
\u5982\uff1aResponse.Write( "" + JMail.Recipients + "" );<\/p>\n
\uff089\uff09ReplyTo\uff08\u6307\u5b9a\u522b\u7684\u56de\u4fe1\u5730\u5740\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u5982\uff1aJMail.ReplyTo = "renwang@163.com"<\/p>\n
\uff0810\uff09Sender\uff08 \u53d1\u4ef6\u4eba\u7684\u90ae\u4ef6\u5730\u5740\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u5982\uff1aJMail.Sender = "renwang@163.com"<\/p>\n
\uff0811\uff09SenderName\uff08\u53d1\u4ef6\u4eba\u7684\u59d3\u540d\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u5982\uff1aJMail.SenderName = "renwang"<\/p>\n
\uff0812\uff09ServerAddress\uff08\u90ae\u4ef6\u670d\u52a1\u5668\u7684\u5730\u5740\uff09 : \u5b57\u7b26\u4e32<\/p>\n
\u4f60\u53ef\u4ee5\u6307\u5b9a\u591a\u4e2a\u670d\u52a1\u5668\uff0c\u7528\u5206\u53f7\u70b9\u5f00\u3002\u53ef\u4ee5\u6307\u5b9a\u7aef\u53e3\u53f7\u3002
\u5982\u679cserverAddress\u4fdd\u6301\u7a7a\u767d\uff0cJMail\u4f1a\u5c1d\u8bd5\u8fdc\u7a0b\u90ae\u4ef6\u670d\u52a1\u5668\uff0c\u7136\u540e\u76f4\u63a5\u53d1\u9001\u5230\u670d\u52a1\u5668\u4e0a\u53bb\u3002
\u5982\uff1aJMail.ServerAddress = "mail.263.net.cn" <\/p>\n
\uff0813\uff09Subject\uff08\u8bbe\u5b9a\u90ae\u4ef6\u7684\u6807\u9898\uff0c\u53ef\u4ee5\u53d6\u81eaFrom\u3002\uff09\uff1a\u5b57\u7b26\u4e32
\u5982\uff1aJMail.Subject = "\u5ba2\u6237\u53cd\u9988\u8868\u5355"<\/p>\n
\uff0814\uff09\u6dfb\u52a0\u6587\u4ef6\u9644\u4ef6\u5230\u90ae\u4ef6
\u5982\uff1aJMail.AddAttachment( "c:\\anyfile.zip" )<\/p>\n
\uff0815\uff09AddCustomAttachment( FileName, Data ) <\/p>\n
\u6dfb\u52a0\u81ea\u5b9a\u4e49\u9644\u4ef6.
\u5982\uff1aJMail.AddCustomAttachment( "anyfile.txt", "Contents of file" ); <\/p>\n
\uff0816\uff09AddHeader( Header, Value ) <\/p>\n
\u6dfb\u52a0\u7528\u6237\u5b9a\u4e49\u7684\u4fe1\u4ef6\u6807\u5934\u3002
\u5982\uff1aJMail.AddHeader( "Originating-IP","192.168.10.10" );<\/p>\n
\uff0817\uff09AddRecipient\uff08\u6536\u4ef6\u4eba\uff09\uff1a\u5b57\u7b26\u4e32<\/p>\n
\u5982\uff1aJMail.AddRecipient( "info@dimac.net" );<\/p>\n
\uff0818\uff09AddRecipientBCC( Email )\uff0c\u5bc6\u4ef6\u6536\u4ef6\u4eba\uff1a <\/p>\n
\u5982\uff1aJMail.AddRecipientBCC( "renwang@163.com" );<\/p>\n
\uff0819\uff09AddRecipientCC( Email ) \uff0c\u6284\u9001\u6536\u4ef6\u4eba\uff1a<\/p>\n
\u5982\uff1aJMail.AddRecipientCC( "anone@mailhost.com" )<\/p>\n
\uff0820\uff09AddURLAttachment( URL, \u6587\u6863\u540d) <\/p>\n
\u4e0b\u8f7d\u5e76\u6dfb\u52a0\u4e00\u4e2a\u6765\u81eaurl\u7684\u9644\u4ef6. \u7b2c\u4e8c\u4e2a\u53c2\u6570"\u6587\u6863\u540d", \u7528\u6765\u6307\u5b9a\u4fe1\u4ef6\u6536\u5230\u540e\u7684\u6587\u4ef6\u540d\u3002
\u5982\uff1aJMail.AddURLAttachment( "http:\/\/www.fuo.cc\/perl\/files\/jmail.zip", "jmail" )<\/p>\n
\uff0821\uff09AppendBodyFromFile( \u6587\u4ef6\u540d) \uff0c\u5c06\u6587\u4ef6\u4f5c\u4e3a\u4fe1\u4ef6\u6b63\u6587\uff1a<\/p>\n
\u5982\uff1aJMail.AppendBodyFromFile( "c:\\an
\nyfile.txt" )<\/p>\n
(22)AppendText( Text ) <\/p>\n
\u8ffd\u52a0\u4fe1\u4ef6\u7684\u6b63\u6587\u5185\u5bb9\uff0c\u6bd4\u5982\u589e\u52a0\u95ee\u5019\u8bed\u6216\u8005\u5176\u5b83\u4fe1\u606f\u3002
\u5982\uff1aJMail.AppendText( "\u6b22\u8fce\u8bbf\u95ee\u672c\u7ad9\uff01" )<\/p>\n
\uff0823\uff09Close() \uff0c\u5f3a\u5236JMail\u5173\u95ed\u7f13\u51b2\u7684\u4e0e\u90ae\u4ef6\u670d\u52a1\u5668\u7684\u8fde\u63a5\uff1a
\u5982\uff1aJMail.Close()<\/p>\n
\uff0824\uff09Execute() \uff0c\u6267\u884c\u90ae\u4ef6\u7684\u53d1\u9001<\/p>\n
\u5982\uff1aJMail.Execute()
jmail\u53d1\u90ae\u4ef6\u4ee3\u7801
<%
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "*****@126.com" ''\u8f93\u5165smtp\u670d\u52a1\u5668\u9a8c\u8bc1\u767b\u9646\u540d \uff08\u90ae\u5c40\u4e2d\u4efb\u4f55\u4e00\u4e2a\u7528\u6237\u7684Email\u5730\u5740\uff09
msg.MailServerPassword = "*****" ''\u8f93\u5165smtp\u670d\u52a1\u5668\u9a8c\u8bc1\u5bc6\u7801 \uff08\u7528\u6237Email\u5e10\u53f7\u5bf9\u5e94\u7684\u5bc6\u7801\uff09
msg.From ="*****@126.com"' Request.Form("email") ''\u53d1\u4ef6\u4ebaEmail
msg.FromName = "\u5c0f\u7070"'Request.Form("name") ''\u53d1\u4ef6\u4eba\u59d3\u540d
msg.AddRecipient "*****@163.com" ''\u6536\u4ef6\u4ebaEmail
msg.Subject = "\u4fe1\u4ef6\u4e3b\u9898"'Request.Form("subject") ''\u4fe1\u4ef6\u4e3b\u9898
msg.Body = "\u6b63\u6587"'Request.Form("body") ''\u6b63\u6587
'msg.addattachment(server.mappath("new.txt"))
msg.Send ("smtp.126.com") ''smtp\u670d\u52a1\u5668\u5730\u5740\uff08\u4f01\u4e1a\u90ae\u5c40\u5730\u5740\uff09
set msg = nothing
response.write("\u53d1\u9001\u6210\u529f\uff01")
%><\/p>\n","protected":false},"excerpt":{"rendered":"
Jmail\u53d1\u90ae\u4ef6\u4ee3\u7801,2005-6-2\u7248 <%Dim SendStatSendStat = Jmail( […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-858","post","type-post","status-publish","format-standard","hentry","category-5"],"_links":{"self":[{"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/posts\/858"}],"collection":[{"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=858"}],"version-history":[{"count":0,"href":"http:\/\/artms.su\/index.php?rest_route=\/wp\/v2\/posts\/858\/revisions"}],"wp:attachment":[{"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=858"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=858"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/artms.su\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=858"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}