ASP中实现定时发送邮件的代码分享

现在的这个项目需要用asp做定时邮件发送，好多人都说asp没有这样的功能。

其实我在以前的一篇文章已经做过详细的解释了，不过那个是定时任务，基本思路是一样的。

参考：ASP中实现执行定时任务的方法

这里我们使用JMail组件的方式来做，邮件的内容为单个网页，可以自由定制。

下面我们看看定时邮件发送的代码：

代码如下:

Function getHTTPPage(url)
    dim objXML
    set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0")  '调用XMLHTTP组件，测试空间是否支持XMLHTTP
    objXML.open "GET",url,false 'false表示以同步的方式获取网页代码，了解什么是同步？什么是异步？
    objXML.send() '发送
    getHTTPPage=bBytesToBstr(objXML.responseBody)'返回信息，同时用函数定义编码
    set objXML=nothing'关闭
End Function
 
 
Function bBytesToBstr(body)
    dim objstream
    set objstream = CreateObject("adodb.stream") '//调用adodb.stream组件
    objstream.Type = 1
    objstream.Mode =3
    objstream.Open
    objstream.Write body
    objstream.Position = 0
    objstream.Type = 2
    objstream.Charset = "GB2312"
'转换原来默认的UTF-8编码转换成GB2312编码，否则直接用XMLHTTP调用有中文字符的网页得到的将是乱码
    bBytesToBstr = objstream.ReadText
    objstream.Close
    set objstream = nothing
end Function
 
 
 
Sub SendAction(subject,mailaddress,Tomail,sender,content,fromEmail,Fromer,UserName,PassWord)
    Set oJmail=CreateObject("Jmail.Message")
    oJmail.Logging=false
    oJmail.Silent=True
    oJMail.Priority = 3
    oJmail.FromName=Fromer
    oJmail.From= FromEmail
    oJmail.CharSet="gb2312"
    oJmail.MailServerUserName = UserName
    oJmail.MailServerPassWord = PassWord
    oJmail.ContentTransferEncoding = "base64"
    oJMail.HTMLBody = content '邮件内容
    oJMail.Body =content'"我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持"
    oJmail.AddRecipient Tomail '收件人地址
    oJmail.Subject = subject '标题
    oJmail.Send(mailaddress)
End Sub
 
 
 
 
dim Subject,MailAddress,ToEmail,Sender,FromEmail,Fromer,PassWord,oJmail,usernames,tomail
dim username,useremail
dim pass,content
dim mailname,mailpass,mailform,mailsmtp
mailname="xxx" 'smtp邮箱的账号
mailpass="xxx" 'smtp邮箱的密码
mailform="xxx" 'smtp邮箱的署名
mailsmtp="xxx" 'smtp邮箱的smtp
MailAddress=mailsmtp ': 发件服务器的地址,如smtp.163.com
Sender=title'      : 发件人姓名
Content=content'     : 邮件内容
FromEmail=mailname'   : 发件人邮件地址
Fromer=title      ': 发件人姓名
UserName=mailform'    : 发件邮件帐号
PassWord=mailpass'    : 发件邮件密码
 
 
'需要指定的内容
content=getHTTPPage("http://www.jb51.net/")
Subject="标题"     ': 邮件标题
Tomail="xxx"     ': 收件人邮件地址
call SendAction(subject,mailaddress,Tomail,sender,content,fromEmail,Fromer,UserName,PassWord)

将这个文件设置为XXX.VBS以后放到数据库定时执行就可以了。

如果有什么不懂的可以直接问MK。

赞 (0)

相关推荐

  • 如何准确定时运行ASP文件

    在一定的时候,要定时的运行某个ASP文件去执行一个任务,如一个工厂在早上9点钟要采集所有的电表的读数,当然这要通过IN SQL连接到各个电表中,我们现在就是用一个ASP文件把IN SQL中表的读数再集中到MS SQL中. 可能你看到的定时运行ASP文件的方法有多种,不过我现在要说的是一种简单的方法,利用计划任务就可简单的实现. 首先,你要写一个js或者vbs文件来调用你所有执行的ASP.下面是js和vbs文件的代码,你可以任选一个,执行效果是一样的. vbs代码-----------------

  • ASP中实现执行定时任务的方法

    ASP中实现执行定时任务的方法

    一个很常见的 ASP 问题 : "如何定时工作流程执行网页?", 之所以会问这个问题大部分是因为管理员可能会利用一个 ASP 网页来作数据库维护的动作, 如备份, 在 Windows NT 平台有一个方法可以做工作流程, 那就是 AT 指令 + Schedule 服务,就是计划任务, 但很可惜的是你并没有法度在命令列 (Command-Line) 执行 ASP 网页 . 当然你可以在命令列执行 IE 并告诉它要求执行的网页, 例如: c:\program files\internet

  • ASP是否可以定时触发事件

    其实做这个的原理是很简单的,只是我们当时没有仔细的去想想该怎么实现,我这里用的是xmlhttp来实现的,当然还有其它的办法,我就不多说了. 现在看论坛上很多都是要一些"完整的代码",看了之后真的是....汗-_-! a.html  复制代码 代码如下: <?xml version="1.0" encoding="UTF-8"?>  <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01

  • ASP中实现定时发送邮件的代码分享

    现在的这个项目需要用asp做定时邮件发送,好多人都说asp没有这样的功能. 其实我在以前的一篇文章已经做过详细的解释了,不过那个是定时任务,基本思路是一样的. 参考:ASP中实现执行定时任务的方法 这里我们使用JMail组件的方式来做,邮件的内容为单个网页,可以自由定制. 下面我们看看定时邮件发送的代码: 复制代码 代码如下: Function getHTTPPage(url)     dim objXML     set objXML=createobject("MSXML2.SERVERXM

  • Asp.Net类型转换类(通用类)代码分享

    废话不多说了,直接给大家贴代码了,具体代码如下所述: /// <summary> /// 类型转换类 /// 处理数据库获取字段为空的情况 /// </summary> public static class DBConvert { #region------------------ToInt32类型转换------------------ /// <summary> /// 读取数据库中字符串并转换成Int32 /// 为空时返回0 /// </summary&

  • Java实现JS中的escape和UNescape代码分享

    众所周知,JavaScript中escape() 函数可对字符串进行编码,这样就可以在所有的计算机上读取该字符串.下面,我们就来看看 Java语言中类似JavaScript中的escape() 和unescape() 转码方法,具体代码如下: public class EscapeUnescape { public static String escape(String src) { int i; char j; StringBuffer tmp = new StringBuffer(); tm

  • Python中pygal绘制雷达图代码分享

    Python中pygal绘制雷达图代码分享

    pygal的安装和简介,大家可以参阅<pip和pygal的安装实例教程>,下面看看通过pygal实现绘制雷达图代码示例. 雷达图(Radar): import pygal radar_chart = pygal.Radar() radar_chart.title = 'V8 benchmark results' radar_chart.x_labels = ['Richards', 'DeltaBlue', 'Crypto', 'RayTrace', 'EarleyBoyer', 'RegEx

  • ASP页面静态化批量生成代码分享(多种方法)

    1.ASP两种简单的生成静态首页的方法 为什么要生成静态首页? 1.如果你首页读取的数据库次数比较多,速度很慢,而且占用很多服务器资源.使用静态页面访问速度当然快多了 2.搜索引擎容易搜索到 3.如果程序出问题,也能保证首页能访问. 4.其他的太多,自己想:) 应用方式: 如果你的首页是index.asp,你可以生成index.htm (默认访问顺序必须是index.htm,index.asp).这样访问者第一次访问到你的网站的时候打开的是index.htm .你可以把网站首页的链接做成inde

  • 在ASP.NET2.0中通过Gmail发送邮件的代码

    在这里我们主要是使用Gmail,究其原因,是因为,我在使用Gmail的邮箱发送邮件的时候,遇到一小小的困难,而使用163等邮箱的时候,没遇到这个问题.     在ASP.NET2.0中,发送邮件是很简单的,我们主要使用来自命名空间System.Net.Mail中的几个类,MailMessage和SmtpClient.     核心代码是很简洁的,如下:     复制代码 代码如下: string to = "这里填写接收者的Email地址";      string from = &q

  • FCKeditor 2.6.6在ASP中的安装及配置方法分享

    FCKeditor 2.6.6在ASP中的安装及配置方法分享

    首先从FCKEditor官方下载最新的版本我们提供的下载地址 http://www.jb51.net/codes/21294.html 安装及配置方法:一.打开文件夹发现有许多文件对于ASP来说是用不到的:删除FCKEditor2.6.6中不必要的文件:解压缩FCKeditor_2.6.6.zip到你网站根目录 fckeditor文件夹中,同时把文件夹内带_的文件夹和文件一并删除:1.fckeditor目录下除editor目录.fckconfig.js.fckeditor.asp.fckedit

  • PHP中数据库单例模式的实现代码分享

    首先我们要知道明确单例模式这个概念,那么什么是单例模式呢? 单例模式顾名思义,就是只有一个实例. 作为对象的创建模式, 单例模式确保某一个类只有一个实例,而且自行实例化并向整个系统提供这个实例,这个类我们称之为单例类. 单例模式的要点有三个: 一是某个类只能有一个实例: 二是它必须自行创建这个实例: 三是它必须自行向整个系统提供这个实例. 下面我们讨论下为什么要使用PHP单例模式? 多数人都是从单例模式的字面上的意思来理解它的用途, 认为这是对系统资源的节省, 可以避免重复实例化, 是一种"计划

  • 简单的ASP中经常用到的代码[推荐]第1/4页

    用数据库语句 1.select 语句:命令数据库引擎从数据库里返回信息,作为一组记录. 2.insert into 语句:添加一个或多个记录至一个表. 3.update 语句:创建更新查询来改变基于特定准则的指定表中的字段值. 4.delete 语句:创建一个删除查询把记录从 from 子句列出并符合 where 子句的一个或更多的表中清除. 5.execute 语句:用于激活 procedure(过程) 用 asp 来做一个自己的通讯录练练手吧-- 一.建立数据库: 用 microsoft a

  • JavaScript定时显示广告代码分享

    这是一则定时显示广告的javascript代码,当然也可以定时显示某一区块内容,很实用. 代码如下: 复制代码 代码如下: function strToDate(str, ext) {  if (str == null || str == '') return;  var arys = new Array();  arys = str.split('-');  var newDate = new Date(arys[0], arys[1] - 1, arys[2], 9, 0, 0);  if

随机推荐