关闭

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

533人阅读 评论(0) 收藏 举报

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

 

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:29456次
    • 积分:470
    • 等级:
    • 排名:千里之外
    • 原创:16篇
    • 转载:1篇
    • 译文:0篇
    • 评论:26条
    最新评论
    链接