查看: 67|回复: 2

紧急求助　　jmail　发送邮件出现问题

[复制链接]

痴人痴想

电梯直达

1^#

发表于 2010-1-15 09:36:04 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<%
dim succeed
Set JMail1=server.createobject("JMail.Message")
JMail1.silent = true '此项为true时，jmail返回出错代号，不会在网页上直接显示出错,发送不了，就会返回下面的jmail1.errorcode
jmail1.Charset = "gb2312"
jmail1.ContentTransferEncoding = "base64"
jmail1.Encoding = "base64"
jmail1.ISOEncodeHeaders = false

'JMail.MailServerUserName = "lparke" '不需要
' JMail.MailServerPassword = "123456" '不需要
JMail1.From = "jiang_3428@sina.com" '发件人Email //这句话最好加上，这个可以是假的。
JMail1.AddRecipient "jiang_3428@163.com" '收件人Email，多个收件人，就重复多行 -----改
JMail1.Subject = "信息" '信件主题
JMail1.Body = "您好，这是我做的jmail测试。" '信件内容要放到JMail.Send之前
'jmail1.htmlBody = "<font color=red>您好，这是我做的jmail测试。</font>" 'JMail1.Body是文本格式，这个是html格式，两个根据需要选一个。
succeed=JMail1.Send ("smtp.sina.com") '""中为空，不需要设置，这样通用，发给很多信箱都可以。
if succeed=true then
response.write "恭喜您，邮件发送成功！^_^"
else
if int(jmail1.errorcode)=0 then
response.write "你所发送的E_mail地址不存在，或目前失去接受功能！"
else
response.write "服务器忙，请稍后再试!"
end if
end if

JMail1.Close()
set JMail1 = nothing
%>

各位帮忙看看是哪里的错误

为什么succeed=JMail1.Send ("smtp.sina.com") 里加上"smtp.sina.com"时提示服务器忙，请稍后再试!

而　succeed=JMail1.Send （“”）时提示你所发送的E_mail地址不存在，或目前失去接受功能，

我都快晕了，各位高手指点指点吧，很急的。谢谢了.

收藏0