vbs访问数据库循环发送邮件

原创 2007年09月30日 09:57:00

在记事本中输入下面的代码,设置好数据库与邮件服务器,保存为.vbs文件,将其放置于指定服务器,执行之。

 

Dim objSendMail 
Dim strTo, strFrom 
Dim strSubject, strBody 

Set objSendMail 
= CreateObject("CDO.Message"
objSendMail.From 
= "codingtaoist@myspace.com" 

set mySourceConn = CreateObject("ADODB.Connection")
set mySourceRecordset = CreateObject("ADODB.Recordset")

mySourceConn.Open 
= "Provider=SQLOLEDB.1;Data Source=10.99.182.88; Initial Catalog=TestDB;user id = 'sa';password='123"
mySQLCmdText 
= "select * from testtb"
mySourceRecordset.Open mySQLCmdText, mySourceConn, 
1

for countr=1 to mySourceRecordset.RecordCount
  myname 
= mySourceRecordset.Fields("myname").value
  objSendMail.To 
= myname
  objSendMail.Subject 
= "Test email" 
  objSendMail.HtmlBody 
= "hello codingtaoist" 
  objSendMail.Configuration.Fields(
"http://schemas.microsoft.com/cdo/configuration/smtpserver"= "10.99.182.52"
  objSendMail.Configuration.Fields(
"http://schemas.microsoft.com/cdo/configuration/sendusing")=2            
  objSendMail.Configuration.Fields.Update
  objSendMail.Send()
  mySourceRecordset.MoveNext
Next

Set objSendMail 
= Nothing 

MsgBox(
"发送成功")

 

 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

使用VBS发送邮件

Azure云数据库报表自动生成Excel 并自动发送邮件实现

由于正式环境假设在微软云上,使用的数据库也是DB云服务,所以目前的SQL SERVER数据库仅支持表、视图的查询和修改,类似于作业、存储过程、管理等权限,全部不能使用(按照微软的说法是,这样DB库就是...

jmail vbs 本地發送郵件

  • 2011-03-11 08:57
  • 311KB
  • 下载

两表比较后利用触发器发送邮件——ASA数据库

ASA数据库利用触发器发送HTML邮件.Example data: create table a_table ( trans_no varchar(64), part_id varcha...

SQL Server 定时发送邮件(从数据库查询出的数据作为附件)

一、准备知识 1、配置数据库邮件功能(SQL Server 2008,貌似Express没有这个功能)               如何配置参考http://blog....

SAE数据库完美备份(自动备份+发送邮件+数量可控)

http://xuhehuan.com/1834.html 这是一篇首发在SAE云计算平台开发者论坛的文章,主要目的就是在通过SAE高级开发者认证后,用来申请新浪微博加V。按照目前的SAE申请微博...

利用oracle发送邮件功能简单监控数据库运行状态

对于oracle的监控,方法有很多,我这里只是简单的利用oracle自动发送邮件的功能辅助OEM对数据库进行一些监控,具体细节如下:         发送邮件的存储过程是从itpub上摘抄过来的...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)