标题:[求助]大家看看这个程序
只看楼主
hadisi
Rank: 1
等 级:新手上路
帖 子:82
专家分:0
注 册:2006-5-15
 问题点数:0 回复次数:0 
[求助]大家看看这个程序
我用JMAIL发送邮件,提交后显示发送成功,但是在邮箱里却没有收到,帮忙看看什么原因!
<%
function Send_Mail(mymailbody)
set msg=Server.CreateObject("jmail.message")
email=trim(request("email"))
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "lanshuixinzi@163.com" '输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址)
msg.MailServerPassword = "1986721" '输入smtp服务器验证密码 (用户Email帐号对应的密码)
msg.From=email '发件人Email
msg.FromName=request.form("username") '发件人姓名
msg.AddRecipient"lanshuixinzi@163.com" '收件人Email
msg.Subject=request.form("subject") '信件主题
msg.Body=mymailbody '正文
msg.Send ("smtp.163.com") 'smtp服务器地址(企业邮局地址)
set msg = nothing
end function

user=trim(request("username"))
kind=trim(request("kind"))
subject=trim(request("subject"))
email=trim(request("email"))
tel=trim(request("tel"))
content=request("content")
mymailbody ="<p></p>作者:"& user & "<p>"
mymailbody=mymailbody&"Email:"&email& "<p> "
mymailbody=mymailbody&"电话号码:"&tel&"<p>"
mymailbody=mymailbody&"咨询类别:"&kind&"<p> "
mymailbody=mymailbody&"题目:"&subject&"<p>"
mymailbody=mymailbody&"内容:"&content
call Send_mail(mymailBody)
response.write "<script language=javascript> alert('您的所填写的申请信息已经成功提交,谢谢您的参与!');"
response.write "javascript:history.go(-1)</script>"
%>
搜索更多相关主题的帖子: function blank request 服务器 target 
2007-04-30 11:51



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-136185-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.431879 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved