Asp發(fā)送郵件 （越辰科技整理demade.com.cn）
1、jmail發(fā)送郵件
要做在線發(fā)郵件首先要該服務(wù)器支持jamil組件(現(xiàn)在的空間商基本上都支持)，如果在自己機(jī)子上測(cè)試的
時(shí)候到網(wǎng)上去找個(gè)jmail安裝一個(gè)就行了，記住本程序只適用于4.2以后的版本！
<%
domain = "smtp.163.com"
ename=request.form("name")
email=request.form("email")
subject=request.form("subject")
message=request.form("message")
dim jmail
set jmail=server.createobject("Jmail.message")
jmail.silent=true
jmail.charset="gb2312"
jmail.fromname=ename '這里是發(fā)件人名稱(chēng)，可以從數(shù)據(jù)庫(kù)或表單中取值
jmail.from=email '這里是發(fā)件人郵箱，可以從數(shù)據(jù)庫(kù)或表單中取值，但格式一定要正確 <br>
jmail.subject=subject '該值可以從數(shù)據(jù)庫(kù)或表單中取值
jmail.HTMLBody = Message
jmail.AddHeader "Originating-IP", Request.ServerVariables("anrui32@163.com ")
jmail.AddRecipient"service@lovoo.com","service" '"收件人郵箱地址","收件人姓名"
jmail.mailserverusername="smtp服務(wù)器登錄用戶(hù)名" '郵件發(fā)送服務(wù)器登錄名稱(chēng)
jmail.mailserverpassword="smtp服務(wù)器登錄密碼" '郵件發(fā)送服務(wù)器登錄密碼
jmail.maildomain="郵件服務(wù)器域名" '郵件發(fā)送服務(wù)器域名
sendok=jmail.send("domain") 'smtp服務(wù)器名稱(chēng)
if sendok then
response.write "恭喜您，郵件發(fā)送成功"
else
response.write "對(duì)不起，郵件發(fā)送失敗，可能由于服務(wù)器登錄設(shè)置配置不當(dāng)造成或填寫(xiě)的信息有誤，請(qǐng)
確認(rèn)正確后再進(jìn)行發(fā)送！"
end if %>
上面就是利用jmail發(fā)送郵件的主要代碼
下面還有一個(gè)html頁(yè)面就是用來(lái)填寫(xiě)發(fā)送信息的
<html>
<head>
<title>小妖——在線發(fā)送郵件</title>
<meta http-equiv="content-type=" content="text/html; charset=gb2312">
</head>
<body>
<form method="post" action="">
發(fā)件人名稱(chēng)：<input type="text" ><br>
發(fā)件人郵箱：<input type="text" ><br>
收件人名稱(chēng)：<input type="text" ><br>
收件人郵箱：<input type="text" ><br>
郵件標(biāo)題：<input type="text" ><br>
郵件內(nèi)容：<textarea rows="9" cols="40" ></textarea><br>
<div align="center"><input type="submit" value="發(fā)送"></div>
</form>
</body>
</html>
已經(jīng)全部結(jié)束了，上面那個(gè)發(fā)送郵件的asp代碼中的注釋部分可以用表單值代替，不過(guò)最好寫(xiě)成先把
值賦給一個(gè)變量，如：title=request.form("title"),然后把注釋部份用title代替，一但用了變變量賦
值時(shí)就要把jmail.subject=""這對(duì)引號(hào)去掉了可以直接寫(xiě)成jmail.subject=title就OK了。
2、無(wú)組件發(fā)送郵件
自動(dòng)發(fā)送處理代碼：
<%
Dim MailObject
Response.Write "正在發(fā)送郵件......<BR>"
Mailto = Request("Mailto")
Mailfrom = Request("Mailfrom")
Mailsubject = Request("Mailsubject")
Mailbody = Request("Mailbody")
Mailfile = Request("Mailfile")
Set MailObject = Server.CreateObject("CDONTS.NewMail")
'收信人地址
MailObject.To = Mailto
'發(fā)信人地址
MailObject.From = Mailfrom
'信件標(biāo)題
MailObject.Subject = Mailsubject
'信件內(nèi)容
MailObject.Body = Mailbody
'附件地址
MailObject.AttachFile Mailfile
'開(kāi)始發(fā)送郵件
MailObject.Send
Set MailObject = Nothing
Response.Write "郵件發(fā)送成功了"
%>
3、微軟自帶CDONTS組件發(fā)送核心代碼：
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立郵件對(duì)象
cdomail.Subject = "Mail Subject" '郵件標(biāo)題
cdomail.From = "Sender's Mail" '發(fā)件人的地址
cdomail.To = "Email will from" '收件人的地址
cdomail.Body = "Mail Body" '郵件的內(nèi)容
cdomail.Send '執(zhí)行發(fā)送
%>
Jmail程序調(diào)用：
<%
'參數(shù)說(shuō)明
'Subject : 郵件標(biāo)題
'MailAddress : 發(fā)件服務(wù)器的地址,如smtp.163.com
'Email : 收件人郵件地址
'Sender : 發(fā)件人姓名
'Content : 郵件內(nèi)容
'Fromer : 發(fā)件人的郵件地址
Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '創(chuàng)建一個(gè)JMAIL對(duì)象
jmail.silent = true 'JMAIL不會(huì)拋出例外錯(cuò)誤，返回的值為FALSE跟TRUE
jmail.logging = true '啟用使用日志
jmail.Charset = "GB2312" '郵件文字的代碼為簡(jiǎn)體中文
jmail.ContentType = "text/html" '郵件的格式為HTML的
jmail.ServerAddress = mailaddress '發(fā)送郵件的服務(wù)器
jmail.AddRecipient Email '郵件的收件人
jmail.SenderName = sender '郵件發(fā)送者的姓名
jmail.Sender = fromer '郵件發(fā)送者的郵件地址
jmail.Priority = 1 '郵件的緊急程序，1 為最快，5 為最慢， 3 為默認(rèn)值
jmail.Subject = subject '郵件的標(biāo)題
jmail.Body = content '郵件的內(nèi)容
'由于沒(méi)有用到密抄跟抄送，這里屏蔽掉這兩句，如果您有需要的話，可以在這里恢復(fù)
'jmail.AddRecipientBCC Email '密件收件人的地址
'jmail.AddRecipientCC Email '郵件抄送者的地址
jmail.Execute() '執(zhí)行郵件發(fā)送
jmail.Close '關(guān)閉郵件對(duì)象
End Sub
'調(diào)用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "這是一封用JMAIL發(fā)送的測(cè)試郵件"
strContent = "JMail組件發(fā)送測(cè)試成功！"
strEmail = "runbing@eyou.com"
strFromer = "runbing@eyou.com"
strMailAddress = "mail.ubbcn.com"
Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>
jmail.smtpmail的核心代碼：
<%
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '創(chuàng)建一個(gè)JMAIL對(duì)象
jmail.silent = true 'JMAIL不會(huì)拋出例外錯(cuò)誤，返回的值為FALSE跟TRUE
jmail.logging = true '啟用使用日志
jmail.Charset = "GB2312" '郵件文字的代碼為簡(jiǎn)體中文
jmail.ContentType = "text/html" '郵件的格式為HTML的
jmail.ServerAddress = "Server Address" '發(fā)送郵件的服務(wù)器
jmail.AddRecipient Email '郵件的收件人
jmail.SenderName = "SenderName" '郵件發(fā)送者的姓名
jmail.Sender = "Email Address" '郵件發(fā)送者的郵件地址
jmail.Priority = 1 '郵件的緊急程序，1 為最快，5 為最慢， 3 為默認(rèn)值
jmail.Subject = "Mail Subject" '郵件的標(biāo)題
jmail.Body = "Mail Body" '郵件的內(nèi)容
jmail.AddRecipientBCC Email '密件收件人的地址
jmail.AddRecipientCC Email '郵件抄送者的地址
jmail.Execute() '執(zhí)行郵件發(fā)送
jmail.Close '關(guān)閉郵件對(duì)象
%>
w3 Jmail4.3組件核心代碼：
<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立發(fā)送郵件的對(duì)象
jmail.silent = true '屏蔽例外錯(cuò)誤，返回FALSE跟TRUE兩值j
mail.logging = true '啟用郵件日志
jmail.Charset = "GB2312" '郵件的文字編碼為國(guó)標(biāo)
jmail.ContentType = "text/html" '郵件的格式為HTML格式
jmail.AddRecipient Email '郵件收件人的地址
jmail.From = "Email From for Sender" '發(fā)件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登錄郵件服務(wù)器所需的用戶(hù)名
jmail.MailServerPassword = "Password of Email" '登錄郵件服務(wù)器所需的密碼
jmail.Subject = "Mail Subject" '郵件的標(biāo)題
jmail.Body = "Mail Body" '郵件的內(nèi)容
jmail.Prority = 1 '郵件的緊急程序，1 為最快，5 為最慢， 3 為默認(rèn)值
jmail.Send("Server Address") '執(zhí)行郵件發(fā)送（通過(guò)郵件服務(wù)器地址）
jmail.Close() '關(guān)閉對(duì)象
%>
4、FLASH+ASP發(fā)郵件的代碼
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<%
Dim email,topic,mailbody,sendto
ytopic=request.Form("ytopic")
yname=request.Form("yname")
yemail=request.Form("yemail")
yhome=request.Form("yhome")
ycontent=request.Form("ycontent")
mailbody="<div style='font-size:10pt'>"
mailbody=mailbody+"名字:"+yname+"<br>"
mailbody=mailbody+"網(wǎng)址:"+yhome+"<br>"
mailbody=mailbody+"郵件:"+yemail+"<br>"
mailbody=mailbody+"內(nèi)容:"+ycontent+"<br>"
mailbody=mailbody+"</div>"
topic="[RIACN反饋]"+ytopic
sendto="email@domain.com"
call Jmail(topic,mailbody,sendto)
sub Jmail(topic,mailbody,sendto)
on error resume next
dim JMail
Set JMail=Server.CreateObject("JMail.Message")
JMail.Logging = True
JMail.ContentType = "text/html"
JMail.From = "email@domain.com"
JMail.Subject = topic
JMail.Body = mailbody
JMail.AddRecipient sendto
JMail.Priority = 3
JMail.Send("mail.domain.com")
Set JMail = nothing
'關(guān)閉并清除對(duì)象
JMail.Close()
Set JMail = Nothing
if err.number = 0 then
Response.Write("success=1")
end if
end sub
%>
5、Jmail問(wèn)題集錦
1、JMAIL的版本是多少？
JMAIL 是免費(fèi)的4.0版本
2、JMAIL 需要單獨(dú)的發(fā)信服務(wù)器嗎？
JMAIL 需要設(shè)置單獨(dú)的發(fā)信服務(wù)器
如：set mail=server.CreateObject("jmail.SMTPMail")
mail.ServerAddress = "mail.domain.com"
3、為什么使用jmail發(fā)信時(shí)發(fā)信失��？
最可能的原因是你指定的發(fā)信服務(wù)器需要發(fā)信認(rèn)證，而你在程序中沒(méi)有指定發(fā)信用戶(hù)名和密碼，具體的編碼為：
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.From ="from@hichina.com"
mail.AddRecipient "to@hichina.com"
mail.MailDomain="mail.hichina.com"
mail.MailServerUserName = " from @hichina.com"
mail.MailServerPassWord = "****"
mail.subject=”test”
mail.body= “歡迎”
'On Error Resume Next
mail.Send("mail.hichina.com")
mail.close()
set mail=nothing
4、Jmail 能發(fā)送附件嗎？
可以
mail.AddAttachment (replace(server.MapPath("/test.doc"),"",""))
5、 Jmail 可以發(fā)送Html格式的郵件嗎？
可以,具體看使用手冊(cè)。
6、Jmail組件實(shí)例。
（1）發(fā)信服務(wù)器需要認(rèn)證（萬(wàn)網(wǎng)郵箱適用）
<%
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.From ="test@hichina.com" '發(fā)送人的郵件地址
mail.AddRecipient "test@hichina.com" '接收者的郵件地址
mail.MailDomain="mx.hichina.com" '改成可以正常使用的郵件服務(wù)器的IP或域名
mail.MailServerUserName = "test@hichina.com" '郵件服務(wù)器的郵箱地址
mail.MailServerPassWord = "*****" '郵件服務(wù)器的郵箱密碼
mail.subject="標(biāo)題" '標(biāo)題
mail.body= "正文" '正文
On Error Resume Next
mail.Send("mx.hichina.com") '改成可以正常使用的郵件服務(wù)器的IP或域名
mail.close()
set mail=nothing
response.write "發(fā)送成功"
%>
（2）發(fā)信服務(wù)器不需要認(rèn)證
<%
set mail=server.CreateObject("jmail.SMTPMail")
mail.Charset="gb2312"
mail.ServerAddress = "mx.hichina.com" '改成可以正常使用的郵件服務(wù)器的IP或域名
mail.Sender="test@hichina.com" '發(fā)送人的郵件地址
mail.SenderName="test"
mail.AddRecipient("test@sina.com") '接收者的郵件地址
mail.Subject ="標(biāo)題" '標(biāo)題
mail.body="正文" '正文
mail.Priority="1"
'On Error Resume Next
mail.Execute()
mail.Close
Set mail=nothing
response.write "發(fā)送成功"
%>
7、Jmail發(fā)信的實(shí)例,模塊化隨時(shí)調(diào)用
一個(gè)用jmail發(fā)信的過(guò)程，及使用方法. 發(fā)信時(shí)，直接調(diào)用這個(gè)過(guò)程就行了。
<%
dim str,HtmlBody
HtmlBody="<html><body bgcolor='red' topmargin='40'><p align='center'>I Love 2Yup!</p></html>"
str=JmailSend( "hello","ILoveYou",true,HtmlBody,"youname@domain.com",youname@sina.com,
"hello","smtp.sina.com.cn","hello","Password")
if str="Y" then
response.write("發(fā)送成功")
else
response.write("發(fā)送失敗!請(qǐng)重試!")
end if
'=================================================
'函數(shù)名：JmailSend
'作 用：用Jmail發(fā)送郵件
'參 數(shù)：Subject 郵件標(biāo)題
' Body 郵件內(nèi)容
' Body 郵件內(nèi)容
' isHtml 是否發(fā)送Html格式郵件 (true 是)
' HtmlBody Html格式郵件內(nèi)容
' MailTo 收件人Email
' From 發(fā)件人Email
' FromName 發(fā)件人姓名
' Smtp smtp服務(wù)器
' Username 郵箱用戶(hù)名
' Password 郵箱密碼
'返回值：JmailSend="N" 發(fā)送失敗 JmailSend="Y" 發(fā)送成功
'~~~~~~~~~~suercool~~~~~
'=================================================
function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
dim JmailMsg
set JmailMsg=server.createobject("jmail.message")
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password
JmailMsg.addrecipient MailTo
JmailMsg.from=From
JmailMsg.fromname=FromName
JmailMsg.charset="gb2312"
JmailMsg.logging=true
JmailMsg.silent=true
JmailMsg.subject=Subject
JmailMsg.body=Body
if isHtml=true then JmailMsg.htmlbody=HtmlBody
if not JmailMsg.send(Smtp) then
JmailSend="N"
else
JmailSend="Y"
end if
JmailMsg.close
set JmailMsg=nothing
end function
%>
====================================
越辰科技整理demade.com.cn |
