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访问数据库循环发送邮件
举报原因:
原因补充:

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