您现在的位置:首页 >> 软件开发 >> 内容

asp使用JMail组件自动发送邮件的方法

时间:2023-12-12 23:13:44 点击:

  核心提示:asp发送邮件的插件:jmail_free-v4.5jmail_free-v4.5.rar...

asp发送邮件的插件:jmail_free-v4.5

jmail_free-v4.5.rar


使用Jmail自动发邮件源码示例,见附件:


使用Jmail自动发邮件源码示例.rar


***************下面是自动发送邮件的表单程序-开始*******************


<HTML>
<HEAD>
<TITLE> 在线发送邮件 </TITLE>
</HEAD>
<BODY>
<center>
<h1>在线发送邮件</h1>
</center>
<hr>
<form method="post" action="sendmail.asp">
请如实填写以下内容:
<br><br>
姓名:<br>
<input type="text" size="25" name="name"><br>
电子邮件地址:<br>
<input type="text" size="25" name="email"><br>
主题:<br>
<input type="text" size="25" name="subject"><br><br>
详细内容:<br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<input type="submit" value="寄出">
</form>
</BODY>
</HTML>


***************下面是自动发送邮件的表单程序-结束*******************


 


 


***************下面是自动发送邮件的处理程序-开始*******************


<%
dim CLStr,msg,mailserver,username,password,receive
CLStr=Chr(13) & Chr(10)


'请在此修改相关信息
mailserver="smtp.163.com" '邮局服务器地址(smtp服务器地址),本例为163邮箱
username="********" 'smtp服务器验证登陆名(邮局中开设的任何一个信箱的地址)
password="********" 'smtp服务器验证密码 (信箱密码)


receive="ardonchen@163.com" '接受反馈信息的email地址(可以是您的任何有效信箱)
'修改结束


Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = username
msg.MailServerPassword = password
msg.From = username
msg.FromName = username
msg.AddRecipient (receive)
msg.Subject = Request.Form("subject")


msg.Body = "用户申请资料"&CLStr&CLStr
msg.Body = msg.Body&"对方姓名:"&Request.Form("name")&CLStr
msg.Body = msg.Body&"对方信箱:"&Request.Form("email")&CLStr
msg.Body = msg.Body&"留言内容:"&Request.Form("body")&CLStr


msg.Send (mailserver)
msg.close
set msg = nothing
%>
<p>邮件发送成功,谢谢使用</p>
<a href="sendmail.htm">返回</a>


***************下面是自动发送邮件的处理程序-结束*******************


 


 

作者:站长 来源:网络
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 陈工笔记(www.dui580.com) © 2024 版权所有 All Rights Reserved.
  • 站长:陈工 微信号:chengongbiji QQ:24498854
  • Powered by 陈工