这个功能基于Jmail 4.0 实现,要求你的服务器已经安装Jmail并开放相关功能.
下面给出一个ASP实例,希望对大家有帮助.
名称:在线职位申请系统(表单-邮件系统) sendmail.asp
假设:链接指向
http://www.dovia.net/apply.asp?classid=42&topic=新闻助理
apply.asp 包含一个常见的申请表单集(要求填写姓名/性别/生日/学历等)
form action 指向sendmail.asp
sendmail.asp 代码内容 (注意阅读注释,将必要部分改为你的实际情况)
) Then
Dim theSubject
theSubject=Request.QueryString(topic) 从传递过来的url参数获得邮件主题名
定义所需变量
Dim realname,birthday,sex,marriage,social,stature,prc,idcard,tele,email,address,salary,learn,exper,target
realname=Request.Form(realname)从表单获取发件人姓名
sex=Request.Form(sex)从表单获取发件人性别
marriage=Request.Form(marriage)从表单获取发件人婚姻状况
birthday=Request.Form(birthday)从表单获取发件人性别
social=Request.Form(social)从表单获取发件人政治面貌
stature=Request.Form(stature)从表单获取发件人身高
prc=Request.Form(prc)从表单获取发件人户口所在地
idcard=Request.Form(idcard)从表单获取发件人身份证号码
tele=Request.Form(tele)从表单获取发件人电话
email=Request.Form(email)从表单获取发件人email
address=Request.Form(address)从表单获取发件人住址
salary=Request.Form(salary)从表单获取发件人期待薪酬
learn=Request.Form(learn)从表单获取发件人学历
exper=Request.Form(exper)从表单获取发件人工作经历
target=Request.Form(target)从表单获取发件人个人目标
Dim JMail
Set JMail = Server.CreateObject(JMail.Message)
JMail.Charset = gb2312 邮件字符集，默认为US-ASCII
JMail.ISOEncodeHeaders = False 是否进行ISO编码，默认为True
JMail.ContentType = text/html 邮件头设置， 默认为 text/plain ,发送HTML信息,改为 text/html
发送者信息（可用变量方式赋值）
JMail.From = 三叶草工作室 发送者地址
JMail.FromName = Studio S.Y.C 发送者姓名
JMail.Subject = 职位申请函 邮件主题
身份验证
JMail.MailServerUserName = yourMailServerUserName 身份验证的用户名
JMail.MailServerPassword = yourMailServerPassword 身份验证的密码
设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader Originating-IP, Request.ServerVariables(REMOTE_ADDR)
加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient [email=A]href[/email]
加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
变量filename值可以来自一个上传表单域,本例省略
【参数设置是(True)否(False)为Inline方式】
attachfile = JMail.AddAttachment (filename, True)
邮件主体（HTML(注意信件内链接附件的方式)）
JMail.Body = 应聘资料-申请职位&theSubject&_
&_
&_
&_
申请职位: &theSubject&&_
申请人资料&_
姓名:&realname&性别:&sex&&_
出生年月:&birthday& 婚姻状况:&marriage&&_
政治面貌:&social&身高:&stature&cm&_
户口所在地:&prc&身份证号码:&idcard&&_
联系电话:&tele&联系Email:&email&&_
联系地址:&address&期望月薪:&salary& &_
学历:&learn&工作经历:&exper&&_
个人目标:&target&&_
此邮件来自三叶草申请系统,三叶草企业邮局版权所有.&_
发送【调用格式：SMTPServerAddress)】
JMail.Send(mail.youremail.com)
关闭并清除对象
JMail.Close()
Set JMail = Nothing
Response.Redirect(sendok.asp)发送完成后转向成功页面
End If
%>
邮件发送后用OE或者WEB形式收取就能看见效果了(若用OE收取请打开HTML邮件显示功能)
