ASP实现自动发邮件

ASP实现自动发邮件代码：

摘录一：
<%@LANGUAGE="VBSCRIPT" %>
<%
email="www@www.com"
txt="找回密码。"
set jmail = server.createobject("jmail.smtpmail")
jmail.serveraddress = "www.www.com" '指定发送邮件的服务器地址
jmail.addrecipient email '收件人地址
jmail.subject = "找回密码" '邮件主题
jmail.body = txt '邮件正文
jmail.contenttype ="text/html" '指定为html格式的邮件
jmail.sender = "www@www.com" '发件人
jmail.priority = 2 '优先级
jmail.execute
set jmail=nothing
%>

摘录二：

<%
Call SendMail("zhangzhenyu-555@163.com","浩方网络影院会员","注册成功确认","浩方网络会员注册成功用户名：密码：注册时间：","浩方网络影院站长","gs057788@163.com")
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "user" '登录用户名
JMail.MailServerPassWord = "********" '登录密码
JMail.MailDomain = "163.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
%>

摘录三：

ASP+JMAIL实现自动发邮件功能（转）

想在注册帐号的时候给注册者发送一封确认信？

X 想使用网站数据库中的电子邮件库做电子邮件推广？

想实现这样的功能，最理想的莫过于使用现有的smtp服务器配合网站的程序来实现。这个功能我思考了很久了，可惜的是最终没有找到可以不使用组件就能实现上述功能的方法。找到了一篇关于"windows server 2003 免组件在线发邮件"的文件，测试没有成功，原文如下：

"其实ASP可以做很多事，只是大家不知道怎么用而以。微软为asp提供了非常多的现成有用的组件，而这些组件却没有人知道，如用CDO.Message发送邮件。

什么是CDO.Message？在winnt和win2k下发送邮件要用CDONTS.NewMail，CDONTS.NewMail组件是需要注册的，很简单，只要在服务器上运行命令行regsvr32 Cdonts.dll，在弹出的对话框中确定即可，使用CDONTS.NewMail服务还需安装有iis自带的smtp。到了windows2003，系统就没有附带Cdonts.dll文件了，只剩下一个类似的文件cdosys.dll，当然这个文件在win2k也是有的（需要注册组件），不过2003下好的是什么呢？该组件无需手动注册，系统已经自动注册了。现在我们来看看如何使用该组件吧。

< %
Dim cm
Set cm=Server.CreateObject("CDO.Message")
''创建对象
cm.From="from@test.com"
''设置发信人的邮箱
cm.To="to@test.com"
''设置收信人的邮箱
cm.Subject="我发现一个可以在线订阅RSS的网站，以后不用再安装什么软件了。"
''设定邮件的主题
''cm.TextBody="http://www.knowsky.com/rss/"
''上面是使用普通的文本格式发送邮件，只能是文字，不能支持html，所以这里不用

cm.HtmlBody="Online RSS Feeds Reader 是一个在线的RSS新闻阅读系统。"&_
"无需下载安装，只要注册了之后你就可以拥有和软件一样强大功能的RSS在线订阅聚合新闻的系统了。"&_
"不管你在任何地方，只要你能上网，你就能阅读你喜欢的订阅。"&_
"快去注册吧：http://www.gbmad.net/rss/"

''上面就是你构建的html正文，这样发出的邮件就比只有文字的好看多了。不要说你不会html吧

''cm.AddAttachment Server.MapPath("test.zip")
''如果有需要发送附件的话就用上面的方法把文件附加进去。

cm.Send
''最后当然是执行发送了
Set cm=Nothing
''发送成功后即时释放对象

Response.Write("发送邮件成功。")
%>"

我是使用普通宽带测试的，有独立的IP，但没有成功，于是想试试使用最常见的免费邮件组件Jmail。在http://www.dimac.net下载了Jmail的免费程序，安装之后，用下面一段简单的ASP代码发送邮件成功！

"< %
Set msg=Server.CreateObject("Jmail.Message")
msg.silent=true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "aftersale@163.com"''输入smtp服务器验证登陆名
msg.MailServerPassword = "PassWord"''输入smtp服务器验证密码
msg.From = "AfterSale@163.com"''发件人
msg.FromName = "售后服务"''发件人姓名
msg.AddRecipient "asiabaa@163.com"''收件人
msg.Subject = "主题"''主题
msg.Body = "本邮件由ASP自动发送！"''正文
msg.Priority = 1''设定邮件优先级1为紧急，3为正常，5为缓慢。
msg.Send ("smtp.163.com")''邮件服务器
set msg = nothing
Response.Write("Success!")
%>"

想使用msg.AddRecipient "asiabaa@163.com","ofwind@tom.com" 群发结果失败，后来想想只能使用循坏语句循环ms.AddRecipient来实现了。结果还是比较令人满意的，163.com免费的smtp速度很快，要注意的一点是发件人的电子邮件地址一定要和smtp服务器的登陆名一致，否则发送失败。

ASP实现自动发邮件相关推荐

python脚本自动发邮件功能
最近给项目加监控,用python写了一个脚本,在出错的时候自动发邮件通知的功能.代码如下 #! /usr/bin/python # -*- coding: utf-8 -*- from smtplib ...
java发邮件_使用MATLAB自动发邮件
MATLAB作为工程师的得力助手,常被我们誉为万能助手."MATLAB啥都能做,除了生孩子"这种话语常挂在我们嘴边.今天小编就偷偷告诉大家一个使用MATLAB自动发邮件的方法. 在 ...
Linux中使用Msmtp+mutt+shell自动发邮件程序安装说明
Linux中使用Msmtp+mutt+shell自动发邮件程序安装说明 ------by liyoujia 环境: 需要用到mutt 和 msmtp 这两款软件 Mutt:linux初始化安装的时候自 ...
C++实现自动发邮件代码，这个是用网易邮箱的。
C++实现自动发邮件代码,指导教师发邮件绿叶衬托着花儿,晶莹的露珠在绿草上,我的目光来到了草地,江上耸立着一座有四十几年历史的嘉陵江大桥,她笑着答应了,刘老师家乡的发邮件嘉陵江大桥我的家乡在南充,这不 ...
python qq群自动加入_Python实现向QQ群成员自动发邮件的方法
本文实例讲述了Python实现向QQ群成员自动发邮件的方法.分享给大家供大家参考.具体实现方法如下: 原理: 我们需要先获取QQ群中的所有成员并保存到一个txt文本中去,然后再由python读取文件然 ...
发邮件窗体【支持编辑邮件模板，使用wse多线程上传附件及发邮件（带附件）】以及在服务器端自动发邮件...
这是前段时间做的一个邮件客户端,支持自定义模板(模板是内置的,固定好了) 其中配置模板的xml <?xml version="1.0" encoding= ...
python自动发送qq群消息_Python实现向QQ群成员自动发邮件的方法
本文实例讲述了Python实现向QQ群成员自动发邮件的方法.分享给大家供大家参考.具体实现方法如下: 原理: 我们需要先获取QQ群中的所有成员并保存到一个txt文本中去,然后再由python读取文件然 ...
自动化测试生成HTML测试报告和自动发邮件
一.生成HTML测试报告 1.下载HTMLTestRunner 地址:http://tungwaiyip.info/software/HTMLTestRunner.html 保存在Python\Lib ...
Linux任务之自动发邮件
Linux任务之自动发邮件文章目录 Linux任务之自动发邮件 1.虚拟机Centos7环境 (1)先设置自己的邮箱,我这用qq邮箱: (2)获取到密码后,我们要在Linux上配置邮件文件: (3) ...

ASP实现自动发邮件

ASP实现自动发邮件相关推荐

最新文章

热门文章