Jmail 发信代码！

最新推荐文章于 2018-07-08 10:57:33 发布

onsrs

最新推荐文章于 2018-07-08 10:57:33 发布

阅读量920

点赞数

文章标签： input 邮件服务器服务器 action function class

<%'======================================================================================
Dim   ForUser,   FromUser,   ForUserEmail,   FromUserEmail,   SmtpServer
Dim   emailTit,   emailTxt,   FromUserID,   FromUserIDPW
emailTit   =   Request.Form("emailTit")   '从表单获取email的标题
emailTxt   =   Request.Form("emailTxt")   '从表单获取邮件的内容
'==========================以下绿色代码是判断服务器是否支持JMAIL组件
Function   IsObjInstalled(strClassString)
On   Error   Resume   Next
IsObjInstalled   =   False
Err   =   0
Dim   xTestObj
Set   xTestObj   =   Server.CreateObject(strClassString)
If   0   =   Err   Then   IsObjInstalled   =   True
Set   xTestObj   =   Nothing
Err   =   0
End   Function
if   not   IsObjInstalled("JMail.Message")   then
Response.write"你所使用的服务器不支持邮件发送！"
Response.End
end   if
'==========================================================
if   Trim(Request.Form("action"))   =   "确定发送"   then
SmtpServer   =   Request.Form("SmtpServer")
FromUserEmail   =   Request.Form("FromUserEmail")
FromUser   =   Request.Form("FromUser")
ForUserEmail   =   Request.Form("ForUserEmail")
FromUserID   =   Request.Form("FromUserID")
FromUserIDPW   =   Request.Form("FromUserIDPW")
Dim   JMail
Set   JMail=Server.CreateObject("JMail.Message")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType   =   "text/html"
JMail.AddHeader   "Originating-IP",   Request.ServerVariables("REMOTE_ADDR")
if   Request.Form("smtpPW")   =   "1"   then   '判断服务器是否需要身份验证
'   身份验证
JMail.MailServerUserName   =   FromUserID
'   身份验证的用户名
JMail.MailServerPassword   =   FromUserIDPW
'   身份验证的密码
end   if
JMail.From   =   FromUserEmail   '发件人的信箱
JMail.FromName   =   FromUser   '发件人的名字
JMail.Subject   =   emailTit   '邮件的主题
JMail.Body   =   emailTxt   '邮件的内容
'==============================收件人的地址！
JMail.AddRecipient(ForUserEmail)   '收件人的地址
JMail.Priority=5   '邮件级别1-5数字越大级别越高---3为普通邮件
JMail.Send(SmtpServer)   '红色变量是邮件服务器地址
JMail.Close
Set   JMail=nothing
if   err   then
err.clear
Response.Write   "<center><b>   发信功能已经打开，但因服务器不支持发信或者信箱地址错误，导致信件无法发出！</b></center>"
Response.End
else
Response.Write   "<center><b>   信件已经发出！</b></center>"
Response.End
end   if
end   if   %>
<style   type="text/css">

</style>
<body   leftmargin="0"   topmargin="2"   bgcolor="#0066CC">
<form   action=""   method="post"   name="input"   target="_self">
<table   width="436"   border="0"   align="center"   bgcolor="#0066CC"   cellpadding="3"   cellspacing="1">
<tr   bgcolor="#CADBF7">
<td   width="154"   align="right"   height="28">收件人名字：</td>
<td   width="267"   height="28"   class="text1">   <input   name="ForUser"   type="text"   value="我容易么我"   size="20">
</td>
</tr>
<tr   bgcolor="#CADBF7">
<td   width="154"   align="right"   height="28">收件人地址：</td>
<td   width="267"   height="28">   <input   name="ForUserEmail"   type="text"   size="20"   maxlength="50">
</td>
</tr>
<tr   bgcolor="#CADBF7">
<td   width="154"   align="right"   height="28">发件人姓名：</td>
<td   width="267"   height="28">   <input   name="FromUser"   type="text"   value="今晚在线"   size="20">
</td>
</tr>
<tr   bgcolor="#CADBF7">
<td   width="154"   height="13"   align="right">发件人地址：</td>
<td   width="267"   height="13">   <input   name="FromUserEmail"   type="text"   value=""   size="20"   maxlength="50">
</td>
</tr>
<tr   bgcolor="#E1F4FF">
<td   height="13"   align="right">服务器是否需要身份验证：</td>
<td   width="267"   height="13">
<input   type="radio"   name="smtpPW"   value="1"   checked>需要

<input   name="smtpPW"   type="radio"   value="0">不需要</td>
</tr>
<tr   bgcolor="#E1F4FF">
<td   width="154"   height="28"   align="right">发件信箱登陆名：</td>
<td   height="28">
<input   name="FromUserID"   type="text"   id="FromUserID"   value=""   size="20"   maxlength="50"></td>
</tr>
<tr   bgcolor="#E1F4FF">
<td   width="154"   height="27"   align="right">发件人登陆密码：</td>
<td   height="27">
<input   name="FromUserIDPW"   type="text"   id="FromUserIDPW"   value=""   size="20"   maxlength="50"></td>
</tr>
<tr   bgcolor="#CADBF7">
<td   width="154"   height="26"   align="right">邮件服务器：</td>
<td   height="26">   <input   name="smtpServer"   type="text"   class="biankuang"   id="smtpServer"   value="smtp.163.com"   size="30"   maxlength="50"></td>
</tr>
<tr   bgcolor="#CADBF7">
<td   width="154"   align="right"   height="28">邮件标题：</td>
<td   width="267"   height="28">   <input   name="EmailTit"   type="text"   value="今晚在线邮件测试…………"   size="30"   maxlength="50">
</td>
</tr>
<tr   bgcolor="#CADBF7">
<td   width="154"   align="right"   height="20"   valign="top">邮件内容：</td>
<td   width="267">   <textarea   name="EmailTxt"   cols="35"   rows="4"   id="EmailTxt">
想起我了么？今晚在线吧！
http://WWW.TOL8.COM
</textarea>   </td>
</tr>
<tr   align="center"   bgcolor="#CADBF7">
<td   colspan="2"   height="33">   <input   type="submit"   name="action"   value="确定发送">
        </td>
</tr>
<tr   align="center"   bgcolor="#CADBF7">
<td   colspan="2"   height="33">     </td>
</tr>
</table>
</form>

onsrs

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Jmail 发信代码！

Dim ForUser, FromUser, ForUserEmail, FromUserEmail, SmtpServer Dim emailTit, emailTxt, FromUserID, FromUserIDPW emailTit = Request.Form("emailTit") 从表单获取email的标题
复制链接

扫一扫