关于w3jmail的问题
我安装了w3jmail4.3,系统提示安装成功了(我的系统环境是winxp),可测试程序运行到Jmail.Send(smtpserver) 语句时总是很慢,最后死掉。问题出在哪里呢?我的测试代码很简单:
<%
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
email="xielh@yjy.dq.cnpc.com.cn"
'email=request("email") //得到订阅者的邮箱
RESPONSE.WRITE("--------------------------------")
smtpserver = "yjy.dq.cnpc.com.cn" //我的邮件服务器名
smtpuser = "minjie" //我的信箱用户名
smtppwd = "betty" // 密码
Jmail.Silent = true
JMail.Charset = "gb2312"
JMail.Logging = true
JMail.Priority = 3
JMail.From = "minjie@yjy.dq.cnpc.com.cn" //我的邮箱
JMail.FromName = "mypage" //邮件标题
Jmail.ReplyTo ="minjie@yjy.dq.cnpc.com.cn" //回复邮箱
JMail.AddRecipient(email)//订阅者的邮箱
JMail.Subject = "Test for JMail"
JMail.Body = "testtest"
Jmail.MailServerUserName = smtpuser
Jmail.MailServerPassWord = smtppwd
Jmail.Send(smtpserver) //运行到这里总是停住
isgo = Jmail.Send(smtpserver)
if isgo then
RESPONSE.WRITE("好了!!")
else
RESPONSE.WRITE(JMail.log)
end if
JMail.Close()
Set JMail = Nothing
%>