ASP+JMAIL发送邮件

<%
function sendmail(rec_email)
On error resume next 
Dim JMail, contentId 
Set JMail = Server.CreateObject("JMail.Message") 
JMail.Charset = "gb2312"                                                  ' 邮件字符集,默认为"US-ASCII" 
JMail.FromName = "佳佳软件中心"                                   ' 发送者姓名
JMail.Subject = "您好,您好!欢迎光临http://www.job266.com"        ' 邮件主题
JMail.Priority = 3 
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 
JMail.AddRecipient(rec_email) 
JMail.HTMLBody = "您好!欢迎光临"
JMail.MailServerUserName = "用户名"                                 '身份验证的用户名 
JMail.MailServerPassword = "密码"                                       '身份验证的密码 
JMail.Send("smtp.qq.com")                                                      'smtp服务器
if err.number<>0 then   
response.write "发送失败!"
else   
response.write "发送成功!"
end if
ifJMail.Close() 
Set JMail = Nothing end function
%>
状态:
<%
sendmail("504920177@qq.com")
%>

 

转载于:https://www.cnblogs.com/android88/archive/2011/10/09/3602721.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值