1。发送邮件服务器地址写错。如果用 163邮箱来发送,服务器地址应当写成 smtp.163.com
2。很多发送邮件服务器需要验证邮箱登录名(例:laifangsong@163.com)和密码(123456),如果这两样没提交,发送也会失败。
3。发件人邮箱地址和发送邮件服务器登录名不统一。
还有最重要的,,组件有安装吗???
请参考以下说明:首先服务器上要安装发送邮件的组件,如JMAIL
然后编写代码
<%
Email = " test@163.com " ''收件人Email
Set jmail = Server.CreateObject("JMAIL.Message")'建立发送邮件的对象
jmail.silent = false '屏蔽例外错误,返回FALSE跟TRUE两值
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = " test@163.com " '发件人的E-MAIL地址
jmail.MailServerUserName = " test@163.com " '登录邮件服务器所需的用户名
jmail.MailServerPassword = "test" '登录邮件服务器所需的密码
jmail.Subject = "Jmail邮件" '邮件的标题
jmail.Body = "Jmail邮件测试" '邮件的内容
jmail.Priority = 1'邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Send("mail.163.com") '执行邮件发送(通过邮件服务器地址)。请修改成你的邮件服务器SMTP地址
jmail.Close() '关闭对象
%>
一般,在客户端定义一个表单,设置你的相关内容,当表单提交到后台时,使用jmail提供的功能发送邮件,当邮件发送成功后,可以将相关内容保存到该数据库表中,具体保存过程如下,假设变量uid,email,euname,epw,apop...为保存前台提交过来的内容,并且经过相关判断没有违反相关法则,就可以开始写入数据库了。dim rs '定义记录集
set rs = server.createObject("ADODB.RecordSet")
rs.Open "select * from ca",conn,1,3 '这里假设conn这个数据库连接已经在前面定义过了
rs.AddNew
rs("a_uid") = uid
rs("a_email") = email
......
rs.update
if not err then
response.write "邮件发送并成功保存到数据库中."
else
response.write "邮件发送失败,请检查相关设置,错误信息:"&err.description
end if
那么jMail如何使用呢,请参考一下下面的文章:使用Jmail4.3发送邮件的方法(源代码)
http://www.biye5u.com/article/netsite/ASP/2010/1503.html
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)