关于ASP+eWebEditor发邮件只能发文本问题，不能发HTML连接

thono 2007-01-11 11:43:52

又到半夜了，研究了好几天，始终没办法实现邮件HTML发送，偶比较菜
就用了ASP+eWebEditor 想实现HTML 而且支持复制--粘贴网页的
可以收到的邮件内容部分空白~~~~
哪位大哥指点指点如何实现支持HTML格式的EMAIL 不用eWebEditor也行
小弟万分感谢~~~~~~~

~~~敬礼！！！！

...全文

201 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

thono 2007-01-12

打赏
举报

看了iasky大哥写的代码
//用Jmail 发送HTML邮件！
apply.asp 包含一个常见的申请表单集(要求填写姓名/性别/生日/学历等)
form action 指向sendmail.asp

sendmail.asp 代码内容 (注意阅读注释,将必要部分改为你的实际情况)

<％
If (cStr(Request("classid")) <> "") 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 "youremail@mail.com"

' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
' 变量filename值可以来自一个上传表单域,本例省略
' 【参数设置是(True)否(False)为Inline方式】
'attachfile = JMail.AddAttachment (filename, True)

' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.Body = "<html><head><title>应聘资料-申请职位"&theSubject&_
"</title><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&_
"<style type=""text/css"">"&_
"</style></head><body><table width=""100%"" border=""0"" cellpadding=""0"""&_
" cellspacing=""1"" bgcolor=""#990000""><tr><td><table width=""100%"""&_
" border=""0"" align=""center"" cellpadding=""6"" cellspacing=""0"" "&_
"bgcolor=""#FFFFFF""><tr><td height=""25"" bgcolor=""#CCCCCC"">"&_
"<span class=""style1"">申请职位: "&theSubject&"</span></td></tr>"&_
"<tr><td height=""25"" bgcolor=""#F5F5F3""><span class=""style1"">申请人资料</span></td></tr>"&_
"<tr><td>姓名:"&realname&"</td></tr><tr><td>性别:"&sex&"</td></tr>"&_
"<tr><td>出生年月:"&birthday&"</td></tr><tr><td> 婚姻状况:"&marriage&"</td></tr>"&_
"<tr><td>政治面貌:"&social&"</td></tr><tr><td>身高:"&stature&"cm</td></tr>"&_
"<tr><td>户口所在地:"&prc&"</td></tr><tr><td>身份证号码:"&idcard&"</td></tr>"&_
"<tr><td>联系电话:"&tele&"</td></tr><tr><td>联系Email:"&email&"</td></tr>"&_
"<tr><td>联系地址:"&address&"</td></tr><tr><td>期望月薪:"&salary&"　</td></tr>"&_
"<tr><td>学历:"&learn&"</td></tr><tr><td>工作经历:"&exper&"</td></tr>"&_
"<tr><td>个人目标:"&target&"</td></tr>"&_
"<tr><td><br/>此邮件来自三叶草申请系统,三叶草企业邮局版权所有.<br/></td></tr></table></td></tr>"&_
"</table></body></html>"

' 发送【调用格式：SMTPServerAddress)】
JMail.Send("mail.youremail.com")

' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
Response.Redirect("sendok.asp")'发送完成后转向成功页面
End If

％>

我把文件比较了下以为少了个 JMail.ContentType = "text/html" '邮件头设置，默认为 "text/plain" ,发送HTML信息,改为 "text/html"加上了也不好用，

又干脆把下面的加上了，也是不行。。。。。。。实在郁闷了
JMail.Body = "<html><head><title>应聘资料-申请职位"&theSubject&_
"</title><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&_
"<style type=""text/css"">"&_
"</style></head><body><table width=""100%"" border=""0"" cellpadding=""0"""&_
" cellspacing=""1"" bgcolor=""#990000""><tr><td><table width=""100%"""&_
" border=""0"" align=""center"" cellpadding=""6"" cellspacing=""0"" "&_
"bgcolor=""#FFFFFF""><tr><td height=""25"" bgcolor=""#CCCCCC"">"&_
"<span class=""style1"">申请职位: "&theSubject&"</span></td></tr>"&_
"<tr><td height=""25"" bgcolor=""#F5F5F3""><span class=""style1"">申请人资料</span></td></tr>"&_
"<tr><td>姓名:"&realname&"</td></tr><tr><td>性别:"&sex&"</td></tr>"&_
"<tr><td>出生年月:"&birthday&"</td></tr><tr><td> 婚姻状况:"&marriage&"</td></tr>"&_
"<tr><td>政治面貌:"&social&"</td></tr><tr><td>身高:"&stature&"cm</td></tr>"&_
"<tr><td>户口所在地:"&prc&"</td></tr><tr><td>身份证号码:"&idcard&"</td></tr>"&_
"<tr><td>联系电话:"&tele&"</td></tr><tr><td>联系Email:"&email&"</td></tr>"&_
"<tr><td>联系地址:"&address&"</td></tr><tr><td>期望月薪:"&salary&"　</td></tr>"&_
"<tr><td>学历:"&learn&"</td></tr><tr><td>工作经历:"&exper&"</td></tr>"&_
"<tr><td>个人目标:"&target&"</td></tr>"&_
"<tr><td><br/>此邮件来自三叶草申请系统,三叶草企业邮局版权所有.<br/></td></tr></table></td></tr>"&_
"</table></body></html>"

我的唯一能显示出内容就必须写成 session("bodytext")=formattext(request("bodytext"))
然后JMail.Body = session("bodytext") 这样就能显示能容了，可惜是文本形式的

救命啊~~~~~~~~~~~~高手大哥门

thono 2007-01-12