ASP提交留言直接发到指定邮箱(jmail实现在线发邮件)

演示地址:http://www.souab.com/Demo/200906/email.asp

我这个人吧.天生比较懒.而且一般对于企业网站来讲.除了整天的垃圾邮件外也没啥别的.而每天都要登陆一次网站的后台看看有没有新客户给我们留言.有没有新的订单.有没有新的评论.哎呀.说实话.好麻烦.一天一次还好一点.关键就是得一天进N多次.得看看有没有新客户啦.什么时候留言的.为了让客户觉得我们是用心为他们服务.一天得进N多次后台.我后输后台用户名跟密码都麻了.突然想到.我QQ是天天在线的.而QQ的邮箱有个好处是一但收到新的邮件会自动提示.(MSN也一样).这下就好了.有没有客户留言或下订单或评论后发封邮件到我信箱.这样速度也快.也不用一会进后台一会又进.于是边找边研究.终于出来了.哈哈.还不错. 罗嗦这么多开始吧.

该邮件发送系统需要您的服务器支持Jmail.本地测试可直接下载我上边的两个附件.jmail组件及asp源文件

以下为邮件发送的源代码(留言内方的方式或订单或评论可参与此方式修改):

<%if request("action")="send" then%>
<%
'================================================
'以下为邮件发送系统
'不懂戀愛魚兒制作
'QQ:317970602 E_mail:317970602@qq.com
'================================================
Sub SendAction(subject, email, sender, content)
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
JMail.From = strMailUser ' 发送者地址
JMail.FromName = sender' 发送者姓名
JMail.Subject =subject
JMail.MailServerUserName = strMailUser' 身份验证的用户名
JMail.MailServerPassword = strMailPass ' 身份验证的密码
JMail.Priority = 3
JMail.AddRecipient(email)
JMail.Body = content
JMail.Send(strMailAddress)
End Sub

'调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = Request("title")
strContent = "呼称:" & Request("name") & VbCrLf & "电话:" & Request("tel") & VbCrLf & "内容:" & vbcrlf & Request("content")
strSender = Request("Name")
strEmail = "317970602@qq.com" '这是收信的地址,可以改为其它的邮箱
strMailAddress = "mail.hnihr.com" 'smtp服务器地址（例如邮箱为:hr@hnihr.com的smtp服务器地址为mail.hnihr.com）
strMailUser = "hr@hnihr.com" '发信人的地址
strMailPass = "此处请填写您的邮箱密码.是发信的邮箱" '发件人邮箱密码
Call SendAction (strSubject,strEmail,strSender,strContent)
%>
<script language="JavaScript">
alert('恭喜您！邮件发送成功，我们会尽快与您取得联系！');
history.back();
</script>
<%else%>

body {
font-family:Arial, Helvetica, sans-serif; font-size:12px;
}
body,ul,ol,dl,dd{margin:0px; list-style:none; padding:0;}
img{
border:none;
}
.tfontf {
    background:#CCCCCC;
height:34px;
font-weight:bold;
    color:#FF0000;
font-size:14px;
}
.ullr {
    height:30px;
line-height:30px;
text-align:right;
}
.inputuser {
    border:1px #9d9d9d solid;
background-color:#FFFFFF;
height:18px;
line-height:18px;
font-size:12px;
}
-->
</style>
<title>Asp Email在线邮件发送系统</title>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:50px;">
         <tr>
        <td class="tfontf">　与我们取得联系</td>
      </tr>
        <tr>
          <td style="border:1px #acdaff solid; background-color:#FFFFFF; line-height:25px; padding:5px;">
   <table width="100%" border="0" cellpadding="0" cellspacing="0" style="font-size:12px;">
   <form name="form" method="post" action="?action=send" onSubmit="return check()">
    <tr>
            <td width="14%" class="ullr">称呼：</td>
            <td width="86%"><input name="name" type="text" id="name" class="inputuser" style="width:120px;"/>　<span class="STYLE1">＊</span> (带有<span class="STYLE1">＊</span>的为必填项目)</td>
          </tr>
          <tr>
            <td class="ullr">电话：</td>
            <td><input name="tel" type="text" id="tel" class="inputuser" style="width:120px;"/>　<span class="STYLE1">＊</span></td>
          </tr>
          <tr>
            <td class="ullr">邮箱：</td>
            <td><input name="mail" type="text" class="inputuser" style="width:120px;"/></td>
          </tr>
          <tr>
            <td class="ullr">标题：</td>
            <td><input name="title" type="text" id="title" class="inputuser" style="width:180px;"/>　<span class="STYLE1">＊</span></td>
          </tr>
          <tr>
            <td class="ullr">内容：</td>
            <td>请在下边填写留言的内容！</td>
          </tr>
          <tr>
            <td class="ullr"> </td>
            <td><textarea name="content" cols="45" rows="8"></textarea></td>
          </tr>
    <tr>
            <td class="ullr"> </td>
            <td><input type="submit" name="Submit" value="提交"></td>
          </tr>
   </form>
        </table>
    </td>
        </tr>
</table>
<%end if%>