duplicate email messages via SMTP

[sjl]

Hello Forum,

I have successfully had emails sent out from my database (using MS Scheduled Tasks via SMTP) for over a year. However, out of the blue, 3 weeks ago, duplicates started being received by each recipient. Upon searching the internet I read that due to the increasing "round-trip times on the Internet", the timeout should to at least 5, and as much as 10, minutes. So, I've incrementally increased smtpconnectiontimeout to 20 minutes, but recipients are still getting 2 emails.

I have done made no changes to my code (below), so am between a rock and a hard place. Anyone have any ideas on what else I could check...?


strSch = "http://schemas.microsoft.com/cdo/configuration/"

Set objCDOConfig = CreateObject("CDO.Configuration")

With objCDOConfig.Fields

.Item(strSch & "sendusing") = 2 ' cdoSendUsingPort i.e. the SMTP Server (SMTP over the network)

.Item(strSch & "smtpserver") = "smtp.xxxx.yyy.zzz"

.Item(strSch & "smtpserverport") = 25

.Item(strSch & "smtpauthenticate") = cdoNTLM

.Item(strSch & "smtpconnectiontimeout") = 1200 ‘ 20 minutes

.Update




thanks in advance,
Sarah

 

[boblarson]

How are the emails themselves generated (code)? Are they based off a query and if so, have you checked to make sure that a simple change hasn't made the recordset have duplicate values?

 

[sjl]

thanks Bob,

that was a good suggestion that I had not thought of. I did check into it, but found no resolution.

funny thing happened, I googled my problem (which I had narrowed down to throwing duplicates ONLY when scheduled tasks was used)--and wha-la, it took me to my own resolution of this very problem from 1 year ago! (hmmm--can we say "forgetful"). this is the resolution:

http://www.access-programmers.co.uk/forums/showthread.php?t=170032

thanks again,
sarah