ASP实现在线发送邮件

来源：互联网发布：罗马仕和小米知乎编辑：程序博客网时间：2024/05/16 11:43

要做在线发邮件首先要该服务器支持jamil组件(现在的空间商基本上都支持)，如果在自己机子上测试的时候到网上去找个jmail安装一个就行了，记住本程序只适用于4.2以后的版本！
<%
dim jmail
set jmail=server.createobject("Jmail.message")
jmail.silent=true
jmail.charset="gb2312"
jmail.fromname="发件人名称" '这里是发件人名称，可以从数据库或表单中取值
jmail.from="发件人邮箱" '这里是发件人邮箱，可以从数据库或表单中取值，但格式一定要正确
jmail.addrecipient "收件人邮箱地址","收件人姓名"
jmail.subject="发送邮件标题" '该值可以从数据库或表单中取值

jmail.mailserverusername="smtp服务器登录用户名" '邮件发送服务器登录名称
jmail.mailserverpassword="smtp服务器登录密码" '邮件发送服务器登录密码
jmail.maildomain="邮件服务器域名" '邮件发送服务器域名
sendok=jmail.send("smtp服务器名") 'smtp服务器名称

if sendok then
response.write "恭喜您，邮件发送成功"
else
response.write "对不起，邮件发送失败，可能由于服务器登录设置配置不当造成或填写的信息有误，请确认正确后再进行发送！"
end if
%>
上面就是利用jmail发送邮件的主要代码
下面还有一个html页面就是用来填写发送信息的
<html>
<head>
<title>在线发送邮件</title>
<meta http-equiv="content-type=" content="text/html; charset=gb2312">
</head>
<body>
<form method="post" action="">
发件人名称：<input type="text" name="fname"><br>
发件人邮箱：<input type="text" name="femail"><br>
收件人名称：<input type="text" name="tname"><br>
收件人邮箱：<input type="text" name="temail"><br>
邮件标题：<input type="text" name="title"><br>
邮件内容：<textarea rows="9" cols="40" name="content"></textarea><br>
<div align="center"><input type="submit" name="submit" value="/blog/发送"></div>
</form>
</body>
</html>
已经全部结束了，上面那个发送邮件的asp代码中的注释部分可以用表单值代替，不过最好写成先把值赋给一个变量，如：title=request.form("title"),然后把注释部份用title代替，一但用了变变量赋值时就要把jmail.subject=""这对引号去掉了可以直接写成jmail.subject=title就OK了。