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

在记事本中输入下面的代码，设置好数据库与邮件服务器，保存为.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("发送成功")