问一个关于jmail的问题

jennelee 2007-04-25 04:29:29

jmail本地测试都没有问题邮箱也都收的倒
但上传到空间上就显示

HTTP 500 - 内部服务器错误
Internet Explorer

当我把添加附件这段代码删掉后就可以发送但是添加上去后还是出现同样的问题。。这是在服务器上的

注：：本地的附件可以上传到邮箱

...全文

343 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

jennelee 2007-04-25

打赏
举报

都吃饭去了？

jennelee 2007-04-25

打赏
举报

我在本地测试与在服务器端测试上传的文档是一摸一样的
本地上传的时候没有抱错但是在服务器端的时候就报错了
我本地和服务器端上传得文档是一摸一样的

再发一次

飞天神笔 2007-04-25

打赏
举报

查一下文件所在目录的权限，最好是Everyone完全控制。

飞天神笔 2007-04-25

打赏
举报

regsvr32 可以用来把组件注册到系统中。但看你出错的地方，JMail的组件应该已经注册过了，不需要用regsvr32重新注册了。

jennelee 2007-04-25

打赏
举报

。。不可能的俄我在本地测试与在服务器端测试上传的文档是一摸一样的
本地上传的时候没有抱错但是在服务器端的时候就报错了
我本地和服务器端上传得文档是一摸一样的

飞天神笔 2007-04-25

打赏
举报

应该是　JMail.AddAttachment (jfile)　这行出的错吧

看样子是你的要加载的邮件的附件无法读取。你看看那个文件是否存在？如果不存在，自然就要报错了。

jennelee 2007-04-25

打赏
举报

不要沉啊

jennelee 2007-04-25

打赏
举报

代码因该没有错的

jennelee 2007-04-25

打赏
举报

试问下regsvr32的用处
楼上那位朋友可不可以说的详细些

ChaoYu 2007-04-25

打赏
举报

regsvr32 你下到本機器上Jmail的dll位置+dll名稱.dll

jennelee 2007-04-25

打赏
举报

这个错误是在服务器上的发生的
本地不会出现这个错误下面是我jmail的完整代码
<%Response.Buffer=true
Response.Expires=0
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then Response.End
jname=Request.Form("cname")
jcompany=Request.Form("ccompany")
jaddress=Request.Form("caddress")
jcity=Request.Form("ccity")
jproject=Request.Form("cproject")
jindustry=Request.Form("cindustry")
jwebsite=Request.Form("cwebsite")
jphone=Request.Form("cphone")
jmobile=Request.Form("cmobile")
jfax=Request.Form("cfax")
jemail=Request.Form("cemail")
jfund=Request.Form("cfund")

jfile=replace(trim(request.Form("path")),"'","''")
if request.Form("chk")<>1 then
jperiod=Request.Form("cperiod")
end if
%>
<%
Set JMail = Server.CreateObject("JMail.message")
jmail.logging = true
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
JMail.From = "online@chinalca.com" ' 发送者地址
JMail.FromName = "ChinaLCA" ' 发送者姓名
JMail.MailServerUserName = "online@chinalca.com" ' 身份验证的用户名
JMail.MailServerPassword = "56985300" ' 身份验证的密码
if request.Form("chk")=1 then
JMail.AddRecipient ("jennelee@163.com") ' 接收人邮件地址
else
JMail.AddRecipient ("jennelee@163.com") ' 接收人邮件地址
end if
if instr(jemail,"@")=0 or instr(jemail,".")=0 then
Response.Write "<script Language=Javascript>alert('Email Error！');location.href='javascript:history.go(-1)';</script>"
Response.end
End If
if request.Form("chk")=1 then
JMail.Subject = "Letter form Entrepreneurs" ' 邮件主题
else
JMail.Subject = "Letter form Investors"
end if

JMail.AddAttachment (jfile)

JMail.Priority = 5
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

'邮件主体（HTML(注意信件内链接附件的方式)）
if request.Form("chk")=1 then
JMail.HTMLBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" /><title>Letter From Angel China</title></head><body><table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>Name:</td><td>"&jname&"</td></tr><tr><td>Company:</td><td>"&jcompany&"</td></tr><tr><td>Address:</td><td>"&jaddress&"</td></tr><tr><td>City,Country:</td><td>"&jcity&"</td></tr><tr><td>Project:</td><td>"&jproject&"</td></tr><tr><td>Industry:</td><td>"&jindustry&"</td></tr><tr><td>WebSite:</td><td>"&jwebsite&"</td></tr><tr><td>Phone:</td><td>"&jphone&"</td></tr><tr><td>Mobile:</td><td>"&jmobile&"</td></tr><tr><td>Fax:</td><td>"&jfax&"</td></tr><tr><td>Email:</td><td>"&jemail&"</td></tr><tr><td>Required Fund:</td><td>"&jfund&"</td></tr></table></body></html>"
else
JMail.HTMLBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" /><title>Letter From Angel China</title></head><body><table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>Name:</td><td>"&jname&"</td></tr><tr><td>Company:</td><td>"&jcompany&"</td></tr><tr><td>Address:</td><td>"&jaddress&"</td></tr><tr><td>City,Country:</td><td>"&jcity&"</td></tr><tr><td>Project:</td><td>"&jproject&"</td></tr><tr><td>Industry:</td><td>"&jindustry&"</td></tr><tr><td>WebSite:</td><td>"&jwebsite&"</td></tr><tr><td>Phone:</td><td>"&jphone&"</td></tr><tr><td>Mobile:</td><td>"&jmobile&"</td></tr><tr><td>Fax:</td><td>"&jfax&"</td></tr><tr><td>Email:</td><td>"&jemail&"</td></tr><tr><td>Available Fund:</td><td>"&jfund&"</td></tr><tr><td>Holding Period:</td><td>"&jperiod&"</td></tr></table></body></html>"
end if
JMail.Send("mail.chinalca.com")
JMail.Close()
Set JMail = Nothing

if err.number<>0 then
Response.Write "<script Language=Javascript>alert('There is a error when connecting to the database,please try again later！');location.href='javascript:history.go(-1)';</script>"
response.end
else
Response.Write "<script Language=Javascript>alert('register Successful , Thank you！');location.href='index.asp';</script>"
response.end
end if
%>

jennelee 2007-04-25