SET rsMailQ = objConn.Execute("SELECT * FROM mailqueue WHERE date_sent IS NULL")
While NOT rsEmails.EOF
Set objMailer = Server.CreateObject("Persits.MailSender")
objMailer.Host = MailServer
objMailer.Charset = "UTF-8"
objMailer.ContentTransferEncoding = "Quoted-Printable"
objMailer.From = rsEmails("From")
objMailer.FromName = rsEmails("FromName")
objMailer.AddAddress rsEmails("To")
objMailer.Subject = rsEmails("Subject")
objMailer.Body = rsEmails("msg")
objMailer.Queue = True
objMailer.Send
strSQL = "UPDATE MailQueue SET date_sent = GETUTCDATE() " _
& "WHERE mail_queue_id = " & rsEmails("mail_queue_id")
Set rsUpdate = CreateObject("ADODB.Recordset")
rsUpdate.Open strSQL, objConn
Wend
[@more@]来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/1697933/viewspace-888078/ ，如需转载，请注明出处，否则将追究法律责任。
最新文章
- oracle中怎样将字段建成象SQL2000中的ID自动+1的字段
- Cannot resolve collation conflict for equal to operation
- Speed Up SQL Server Apps -提高SQL Server应用程序的运行效率
- Five Ways to Rev up Your SQL Performance
- SQL SERVER – 检测LOCK、终止会话 ID/UOW 的用户进程
- DBCC DBREINDEX重建索引提高SQL Server性能
- The Effect of NOLOCK on Performance
- The SQL Server 2005 XML Temptress
- Locking
- sp_lock
