ASP在线发邮件ASP在线发邮件
要做在线发邮件首先要该服务器支持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页面就是用来填写发送信息的
小妖——在线发送邮件发件人名称：
发件人邮箱：
收件人名称：
收件人邮箱：
邮件标题：
邮件内容：
已经全部结束了，上面那个发送邮件的asp代码中的注释部分可以用表单值代替，不过最好写成先把
值赋给一个变量，如：title=request.form("title"),然后把注释部份用title代替，一但用了变变量赋
值时就要把jmail.subject=""这对引号去掉了可以直接写成jmail.subject=title就OK了。
标签：asp,发邮件,代码
