关于在asp中用jmail组件发送邮件的有关问题

2012-02-26

关于在asp中用jmail组件发送邮件的问题%SetjmailServer.CreateObject( JMAIL.Message )建立发送邮件的

关于在asp中用jmail组件发送邮件的问题
<%
Set jmail = Server.CreateObject( "JMAIL.Message ") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312 " '邮件的文字编码为国标
jmail.AddRecipient "kuangsong333@126.com " '邮件收件人的地址
jmail.From = "kuangsong333@126.com " '发件人的E-MAIL地址，注意：部分服务器需要把邮件地址写全，如abc@zccn.net
jmail.Subject = "test " '邮件的标题
jmail.Body = "Mail Body " '邮件的内容
jmail.Send( "www.126.com ") '执行邮件发送（通过邮件服务器地址）smtp.域名.com 不一定是邮件服务器
jmail.Close() '关闭对象
set jmail = nothing
Response.Write( "success ")
%>
以上是搞到的一段代码.运行不报错.但就是发不进邮箱去.请高手们看看指点一下

[解决办法]
你的iis支持 smtp吗还有你可以换一个接收邮箱试一下
[解决办法]
机器已经安装jmail组件，运行输入net start SMTPSVC.查看SMTPSVC已经启动。再测试，如果提示成功就查看邮件。
[解决办法]
试试这个,我用得很好.
<%
company_name = replace(request.Form( "company_name "), ", ", "， ")
lxr = replace(request.Form( "lxr "), ", ", "， ")
tel1 = replace(request.Form( "tel1 "), ", ", "， ")
tel2 = replace(request.Form( "tel2 "), ", ", "， ")
email = request.Form( "email ")
password = request.Form( "password ")
center = replace(request.Form( "center "), ", ", "， ")
date_time = now()

if company_name = " " then
response.Write( "公司名称不能为空！ ")
response.end
end if

if lxr = " " then
response.Write( "联系人不能为空！ ")
response.end
end if

if tel1 = " " then
response.Write( "联系电话不能为空！ ")
response.end
end if
if email = " " then
response.Write( "您的E_mail不能为空！ ")
response.end
end if
if center = " " then
response.Write( "留言内容不能为空！ ")
response.end
end if
'sql = "insert into message (company_name,lxr,tel1,tel2,email,center,date_time) values ( ' "&company_name& " ', ' "&lxr& " ', ' "&tel1& " ', ' "&tel2& " ', ' "&email& " ', ' "&center& " ', ' "&date_time& " ') "
'objConn.execute(sql)

'response.Write( "感谢您的留言，我们会尽快与您联系！ ")
'response.end

smtpserver= "mail.nivs.cn " '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改

smtpusername= "msg@nivs.cn " '与SMTP服务器对应的邮箱用户名，请修改
smtppwd= "000111 " '与SMTP服务器对应的邮箱密码，请修改 <br/>
myemail= "sannyhu@nivs.cn " '收件人email
smtpname=lxr '发件人姓名
topic=company_name
mailbody=center& " <p> <p> 联系人: "&lxr& " <p> 联系电话： "&tel1& "     "&tel2& " <p> 留言人邮箱： "&email& " <p> 留言时间: "&date_time& " <p> <p> <b> 此邮件不能直接回复！ <a taregt= " "_blank " " href= " "mailto: "&email& " " "> 请点该处回复！! </a> </b> "
set jmail= server.CreateObject( "jmail.message ")
jmail.Silent = true
jmail.Charset = "GB2312 "
jmail.ISOEncodeHeaders=false
JMail.ContentType= "text/html "
jmail.Priority = 3
jmail.fromname=smtpname
jmail.from=smtpusername
jmail.subject=topic
jmail.Body =trim(mailbody)
jmail.MailServerUserName =smtpusername
jmail.MailServerPassWord =smtppwd
jmail.AddRecipient trim(myemail)
str=jmail.Send(smtpserver)
if str then
Response.write " <script language=javascript> alert( '邮件成功发送! ');window.history.go(-1); </script> "
else
Response.write " <script language=javascript> alert( '邮件发送失败! ');window.history.go(-1); </script> "
end if
jmail.Close
set jmail = nothing
response.end
%>

热点排行

ASP

关于在asp中用jmail组件发送邮件的有关问题