日期:2014-05-17  浏览次数:20971 次

Jmail在本地上可以发送,在其他机器上无法发送。
其他机器上也装了jmail4.4

------解决方案--------------------
错误代码是什么?
------解决方案--------------------
是不是DNS问题
直接设置IP试试
------解决方案--------------------
E_Server = "smtp.263.net " ' '发件服务器

这个换成IP行不行
------解决方案--------------------
E_ServerUser = "jw111 " ' '登录用户名
E_ServerUser = "test " ' '登录用户名

到底是哪个?
------解决方案--------------------
smtp.263.net

你在 cmd里面ping smtp.263.net

就知道ip了
------解决方案--------------------
1、使用asp探针看看Jmail是否正确注册;
2、杀毒软件或者防火墙的原因,暂时关闭杀毒软件和防火墙试试看;
3、给予Jmail.dll组件的Everyone完全控制权限;
4、如果机器上网是通过代理服务器的话,就无法使用JMail发送邮件。
------解决方案--------------------
机子没注册jmail DLL?


---------------------
WWW.jw112.com
------解决方案--------------------
我用你的代码,在本机上也收不到邮件!!
------解决方案--------------------
我自己代码更绝,提示发送失败!!

<%
dim jmail
mailserver= "smtp.163.com " '邮局服务器地址(smtp服务器地址)
receive= "csmjdz@163.com " '接受反馈信息的email地址(可以是您的任何有效信箱)
mailFROM= "csmjdz@163.com " '发邮件地址
username= "csmjdz@163.com " '发邮件地址
password= "19760115 " '发邮件密码

subject= "主题 "
body= "邮件内容 " '修改结束

'调用邮件发送
'群发就是 循环
'需要在web服务器上注册组件 w3JMail4Free.exe
call SendMail (subject, body, mailserver, receive, mailFROM, username,password)
response.write "a=1 "


Sub SendMail(subject, body, mailserver, receive, mailFROM, username,password)
Set jmail = Server.CreateObject( "JMAIL.Message ") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312 " '邮件的文字编码为国标
jmail.ContentType = "text/html " '邮件的格式为HTML格式
jmail.AddRecipient receive '邮件收件人的地址
jmail.From = mailFROM '发件人的E-MAIL地址
jmail.MailServerUserName = username '登录邮件服务器所需的用户名
jmail.MailServerPassword = password '登录邮件服务器所需的密码
jmail.Subject = subject '邮件的标题
jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值

jmail.Body = body

flag=jmail.Send(mailserver) '执行邮件发送(通过邮件服务器地址)

if flag=true then
response.write "发送成功 "
else
response.write "发送失败 "
end if

jmail.Close '关闭邮件对象
set jmail=nothing
end sub
%>
------解决方案--------------------
我用
<%
On Error Resume Next
Dim JMail
Set JMail=Server.CreateObject( "JMail.Message ")
If JMail Is Nothing Then
Response.Write "不支持 "
Else
Response.Write "支持 "
End If
%>
测试过了,支持JMail,杀毒软件也关了,但就是不行!!