asp 发送邮件

<%If 1=1 Then 
Dim   aJMail    Set   aJMail=Server.CreateObject("JMail.Message")    If   aJMail   Is   Nothing     Then   response.write "<script LANGUAGE='javascript'>alert('温馨小提示:服务器不支持JMail.Message组件,请立即安装此组件,此组件用于邮件发送!');history.go(-1);</script>" Response.End    End   If
wzxxfjr="1226902147@qq.com"' 发件人的邮件地址

wzxxzh="1226902147@qq.com"'' 邮箱账号

wzxxmm="ABsC123"' 邮箱密码

wzxxmaildz="smtp.qq.com"'邮箱服务器地址   
'sj="940002339@qq.com" '收件人的邮件地址 

sj="tanggang4@126.com"
Dim JMail, contentId

Set JMail = Server.CreateObject("JMail.Message")     '创建一个JMAIL对象

jmail.logging = true                                 '启用使用日志

JMail.Charset = "gb2312"                             '邮件字符集,默认为"US-ASCII"

JMail.From =wzxxfjr  '发送者地址
JMail.ReplyTo=  request("email")

JMail.FromName = wzxxzh       '发送者姓名

JMail.Subject = ""&request("name")&"订购产品详细情况"                 '邮件主题

JMail.MailServerUserName = wzxxzh                    '身份验证的用户名

JMail.MailServerPassword = wzxxmm                    '身份验证的密码

JMail.Priority = 5                                   '设置优先级,范围从1到5,越大的优先级越高,3为普通

JMail.AddRecipient(sj)               '加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个 'JMail.HTMLBody ="感谢您的注册,您的帐号已成功创建,但在使用之前须先激活您的帐号。<br>要激活帐号请直接点击以下<a href=http://vista123.gotoip2.com/hoomo/log.asp?code="&md5(request("UserName"))&">链接</a>,或把它复制到浏览器中打开:<br>http://vista123.gotoip2.com/hoomo/log.asp?code="&md5(request("UserName"))&"" JMail.HTMLBody =""&request("name")&"成功订购产品的信息如下:<br>QQ号码:"&request("email")&"&nbsp;&nbsp;&nbsp;联系电话:"&request("shouji")&"&nbsp;&nbsp;&nbsp;订购数量:"&request("number")&"&nbsp;&nbsp;&nbsp;送货地址:"&request("address")&"&nbsp;&nbsp;&nbsp;留言:"&request("content")&"&nbsp;&nbsp;&nbsp;" 'JMail.Body = request("content")       '邮件主体(文本部分)
sendok=JMail.Send(wzxxmaildz)                       '发送【调用格式:

objJMail.Send([username:password@]SMTPServerAddress[:Port])】 JMail.Close()                                       '关闭并清除对象 Set JMail = Nothing
Response.write"<script>alert(""订购成功  "");location.href='http://www.guanwang88.com/sanqingcha/';</script>" response.end

End if%>

posted @ 2011-06-11 10:16  唐岗  阅读(...)  评论(...编辑  收藏