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(
"发送成功")

 

 

windows下发送文件到邮箱,使用VBS发送邮件

linux下可以使用mutt来发送邮件,很方便。之前使用的VPS空间里,只有写好脚本,使用MUTT就可以定时备份数据库,发送到指定的邮箱了。而且不用设置发件的邮箱地址。 那么windows下怎么发送...

使用VBS发送邮件

  • 2012年11月30日 17:30
  • 1KB
  • 下载

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

ASA数据库利用触发器发送HTML邮件.Example data: create table a_table ( trans_no varchar(64), part_id varcha...
  • mfkpie
  • mfkpie
  • 2013年12月01日 10:47
  • 847

微软发送邮件dll(数据库用)

  • 2010年04月09日 20:35
  • 94KB
  • 下载

触发器的使用 sqlserver中 数据库自动发送邮件功能

有一天在群里 有一个小孩子问:当一张表新增记录后,我要给这条记录关联联系人发送邮件,怎么配置数据库,求教 孤陋寡闻的我:不应该和配置数据库有关系吧  你就在代码里面写了insert 操作之后 调用...

在linux下自动备份数据库,并且发送邮件。

接到任务:在cenos6.x系统中每天定时备份mysql数据库和Oracle数据库 解决时间1天: 步骤: MySQL定期备份是一项重要的工作,但人工操作太繁琐,也难避免有所疏漏,使用下面的方法即可让...

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

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

Kettle处理文件导入到数据库,对数据进行相应校验,将校验结果发送邮件

工作中有这样的需求 1. 数据规范化: 去空格、制表符、换行符、回车符、单引号(中文、英文)、双引号(中文、英文) 根据邮箱生成登录名,登录名为@之前的内容 2. 数据校验 根据集团提供...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vbs访问数据库循环发送邮件
举报原因:
原因补充:

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