CDO Bulk Email Help - Need to make it faster

[Brent Patroch]

Hello,

Novice here, I am doing bulk emails using CDO, connection to a smtp
server at another location. I am trying to streamline my script, or
through it out and start over to make it faster.

I know that I am doing something wrong and that messages should be
sending much faster. Any help appreciated:

Set objConfig = Server.CreateOb ject("CDO.Confi guration")
Set Fields = objConfig.Field s

With Fields
.Item(cdoSendUs ingMethod)= cdoSendUsingPor t
.Item(cdoSMTPSe rver) = "blah.com"
.Item(cdoSMTPSe rverPort) = 25
.Item(cdoSMTPCo nnectionTimeout ) = 10
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSendUs erName) = "bl**@blah. com"
.Item(cdoSendPa ssword) = "blah"
.Update
End With

Set objMessage = Server.CreateOb ject("CDO.Messa ge")
Set objMessage.Conf iguration = objConfig

' Open database here

objRS.Open SQLString, objConn,2,2
I = 0
With objMessage
.From = "Blah Mailer <bl**@blah.com> "
.Subject = Request.Form("S ubject")
.TextBody = Request.Form("B ody")
Do while not objRS.EOF
.To = objRS("Name") & "<" & objRS("Email") & ">"
.send
objRS.MoveNext
I = I + 1
Loop
End With
objRS.Close
objConn.Close
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Curt_C [MVP]]

What do you mean by send faster?
Is the page taking a long time or simply just the e-mail?
It may be the SMTP server. Most queue up and send every (n) sec/min..... It
may simply be a matter of sitting there waiting to go out, in which case
it's nothing to do with the code.

--
Curt Christianson
Owner/Lead Developer, DF-Software
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Brent Patroch" <br***@patroch. com> wrote in message
news:en******** ******@TK2MSFTN GP11.phx.gbl...

Hello,

Novice here, I am doing bulk emails using CDO, connection to a smtp
server at another location. I am trying to streamline my script, or
through it out and start over to make it faster.

I know that I am doing something wrong and that messages should be
sending much faster. Any help appreciated:

Set objConfig = Server.CreateOb ject("CDO.Confi guration")
Set Fields = objConfig.Field s

With Fields
.Item(cdoSendUs ingMethod)= cdoSendUsingPor t
.Item(cdoSMTPSe rver) = "blah.com"
.Item(cdoSMTPSe rverPort) = 25
.Item(cdoSMTPCo nnectionTimeout ) = 10
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSendUs erName) = "bl**@blah. com"
.Item(cdoSendPa ssword) = "blah"
.Update
End With

Set objMessage = Server.CreateOb ject("CDO.Messa ge")
Set objMessage.Conf iguration = objConfig

' Open database here

objRS.Open SQLString, objConn,2,2
I = 0
With objMessage
.From = "Blah Mailer <bl**@blah.com> "
.Subject = Request.Form("S ubject")
.TextBody = Request.Form("B ody")
Do while not objRS.EOF
.To = objRS("Name") & "<" & objRS("Email") & ">"
.send
objRS.MoveNext
I = I + 1
Loop
End With
objRS.Close
objConn.Close
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!