28,408
社区成员
发帖
与我相关
我的任务
分享求..急急！！
我用Jmail发外部邮件，我自已的电脑试过都可以，可是放到另外一台电脑就不行，请问要设置什么端口，或者什么权限吗？
代码如下：
dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" '设定邮件的字符集
'JMail.ContentType = "text/html" '这个邮件的头设置
Jmail.From="11@163.com" '发件人邮件
Jmail.FromName="网站提示员" '发件人姓名
JMail.AddRecipient "16@163.com","ff" '收件人
JMail.Subject="您好" '邮件标题
JMail.Body=yjnr '邮件内容
JMail.Priority = 3 '邮件优先权
on error resume next
if JMail.Send("201.125.152.110") then
if err then
SendEmail="邮件发送失败"
else
SendEmail="邮件已成功发送!"
end if
end if
set jMail=nothing
请问这是为什么，我这台一切正常，另一台出现以下错误：
The message was undeliverable. All servers failed to receive the message
请版主帮忙一下，在线等待
代码如下：
dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" '设定邮件的字符集
'JMail.ContentType = "text/html" '这个邮件的头设置
Jmail.From="11@163.com" '发件人邮件
Jmail.FromName="网站提示员" '发件人姓名
JMail.AddRecipient "16@163.com","ff" '收件人
JMail.Subject="您好" '邮件标题
JMail.Body=yjnr '邮件内容
JMail.Priority = 3 '邮件优先权
on error resume next
if JMail.Send("201.125.152.110") then
if err then
SendEmail="邮件发送失败"
else
SendEmail="邮件已成功发送!"
end if
end if
set jMail=nothing
请问这是为什么，我这台一切正常，另一台出现以下错误：
The message was undeliverable. All servers failed to receive the message
请版主帮忙一下，在线等待
...全文
请发表友善的回复…
发表回复
wdfboy1978 2004-01-02
- 打赏
- 举报
先用阿江探针看看服务器上有没有jmail组件。如果没有支持就下载安装一个。
xeimm 2004-01-02
- 打赏
- 举报
jmail 看看有没？
agang3321 2004-01-02
- 打赏
- 举报
安装jmail
还有就是另一台机器是否在防火墙后面
还有就是另一台机器是否在防火墙后面
Tal 2004-01-02
- 打赏
- 举报
regsvr32 jmail.dll
troopers 2004-01-02
- 打赏
- 举报
注册你的jmail组件。
crave0186 2004-01-02
- 打赏
- 举报
另一台有装JMAIL。
小尚：你说设置JMAIL，该怎样设置呢，你说明白一点吗？
小尚：你说设置JMAIL，该怎样设置呢，你说明白一点吗？
xinchangpeng 2004-01-01
- 打赏
- 举报
估计是服务器上的jmail有问题
zorou_fatal 2003-12-31
- 打赏
- 举报
用阿江探针看看服务器上有没有jmail组件。
sxsgssgs 2003-12-31
- 打赏
- 举报
估计是另一台机器没有设置JMAIL
xiantao123 2003-12-31
- 打赏
- 举报
是不是另一台机器不支持JMAIL
