<%
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地址不存在,或目前失去接受功能,
我都快晕了,各位高手指点指点吧,很急的。谢谢了.