asp发送邮件的插件:jmail_free-v4.5
使用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>
***************下面是自动发送邮件的处理程序-结束*******************