怎样使服务器可支持JMail发信？？　　烦了半天了~~~~

jiejifeng 2003-08-20 04:53:29

下了JMail4.3,安装到服务器，服务器没有安装smtp服务。

代码在别的虚拟主机上没有问题，但这边文件一直执行，不停止。
请问我应该怎么设置才能让服务器支持Jmail发信？

by the way，我自己本地机是代理上网，安装Jmail后能用代码发信吗？

...全文

92 30 打赏收藏转发到动态举报

写回复

用AI写文章

30 条回复

切换为时间正序

请发表友善的回复…

发表回复

jiejifeng 2003-08-22

打赏
举报

yzhxy2002(yzhxy2002) 你好，我用了你最下面这个代码，但我用的是263的，结果jmail.log输出以下信息，

The message was undeliverable. All servers failed to receive the message ClientLogging enabled: Client Remote Address: 127.0.0.1 .execute() { Trying server mail:263.net.cn 263.net.cn failed with the message: "WSAGetLastError() returned 10038, Socket operation on non-socket" No socket for server. ConnectToServer() 1 of 1 servers failed }

broze 2003-08-21

打赏
举报

263和163都不支持这样的操作的。
你可以找个支持smtp的邮件服务器，jmail.MailServerUserName和jmail.MailServerPassword都是需要的，没有的话时不可以通过认证的。

hzqq 2003-08-21

打赏
举报

你
regsvr32 jmail.dll
注册了没？

gdmm 2003-08-21

打赏
举报

263不支持，163不清楚

gshope 2003-08-21

打赏
举报

jmail.maildomain="263.net.cn"
去掉这句！

jiejifeng 2003-08-21

打赏
举报

ping mail.263.net为 211.150.96.52，但结果错误一样

jiejifeng 2003-08-21

打赏
举报

263的邮件服务器地址是：　211.100.24.131吧，　是 .net.cn的？？

jiejifeng 2003-08-21

打赏
举报

仍然不行，消息还是：

The message was undeliverable. All servers failed to receive the message

laers 2003-08-21

打赏
举报

关注

gshope 2003-08-21

打赏
举报

jmail.Send( "这里写邮件服务器的IP地址" )

gshope 2003-08-21

打赏
举报

jmail.Send( "这里写邮件服务器的IP地址" )

jiejifeng 2003-08-21

打赏
举报

<%
set jmail=server.CreateObject("JMAIL.Message")
jmail.Logging = true
jmail.maildomain="263.net.cn"
jmail.From="***@263.net.cn"
jmail.ReplyTo="****@me.com"
jmail.AddRecipient "****@sina.com"
jmail.Subject="Jmail！"
jmail.HTMLBody="<html><body><h1>jmail mail</h1></body></html>"
jmail.Body="这是一封HTML格式的邮件，请您采用超文本浏览器方式浏览。"
jmail.MailServerUserName="***"
jmail.MailServerPassword="***"
if not jmail.Send( "username:password@263.net.cn" ) then
Response.write "<font color=red>Error!</font><br/>" '& jmail.log & "<br/>"
else
Response.write "<font color=blue>Success!</font><br/>"
end if
jmail.Close
%>

我用的是如上代码，高手帮我看看

yzhxy2002 2003-08-21

打赏
举报

如果不行的用/////////////////////////////////
<%
sub Jmail(email,mailbody)
on error resume next
dim JMail
set JMail=createobject("JMail.Message")
smtpserver="smtp.163.com"
smtpuser="yzhxy2002" //163邮箱用户名
smtppwd="yz791321" //163邮箱密码

Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true

JMail.From = "yzhxy2002@163.com"
JMail.FromName = "元科技有限公司"'发送者姓名
JMail.Subject = "北元科技有限公司（发货情况通知单）"'发信标题

JMail.Priority = 3

JMail.AddRecipient(email)

'JMail.Body = mailbody
JMail.HTMLBody=mailbody

Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd

isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE("提交成功！")
' RESPONSE.WRITE(JMail.log)
else
RESPONSE.WRITE(JMail.log)
end if

JMail.Close()
Set JMail = Nothing

end sub
%>
/////////////////////////////////////

yzhxy2002 2003-08-21

打赏
举报

把JMail.From = "sportsyxd@yahoo.com.cn"
smtpuser = "sportsyxd"
smtppwd = "51111"
修改JMail.From = "yzhxy@163.com"
smtpuser = "sportsyxd" //163邮箱用户名
smtppwd = "51111" //163邮箱密码

yzhxy2002 2003-08-21

打赏
举报

用/////////////
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")

smtpserver = "smtp.163.com"
smtpuser = "sportsyxd"
smtppwd = "51111"

Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true
JMail.Priority = 3

JMail.From = "sportsyxd@yahoo.com.cn"
JMail.FromName = "yourname"
Jmail.ReplyTo = "sportsyxd@yahoo.com.cn"

JMail.AddRecipient("xiaodong7890@yahoo.com.cn")

JMail.Subject = "Test for JMail"& vbcrlf & vbcrlf & tbody
JMail.Body = "testtest"

Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd

Jmail.Send(smtpserver)
isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE("提交成功！谢谢你的支持。")
RESPONSE.WRITE(JMail.log)
else
RESPONSE.WRITE(JMail.log)
end if

JMail.Close()
Set JMail = Nothing

jiejifeng 2003-08-21