Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

intermittent CDO.Message.1 error '80040213' problem

Status
Not open for further replies.

bslintx

Technical User
Apr 19, 2004
425
US
I get this error intermittently. I have cleared cache in browser and have to scratch my head as to why it would be intermittent? Either it can connect....or not...not either or. Please advise. Thanks.

Brian

NOTES:
Using IIS, XP Pro, CDOSYS
server is elaptop and checked dns ---is good
Code:
Dim objCDOSYSCon
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Set and update fields properties
With objCDOSYSCon
'Outgoing SMTP server
.Fields("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "elaptop.com"
.Fields("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
'CDO Port
.Fields("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
'Timeout
.Fields("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")[/URL] = 60
.Fields.Update
End With
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
'Set and update email properties
With objCDOSYSMail
'0=Low, 1=Normal, 2=High
.Fields("urn:schemas:httpmail:importance").Value = 1
'Who the e-mail is from
.From = "brian@elaptop.com"
'Who the e-mail is sent to
.To = "bslintx@yahoo.com"
'Who the e-mail is CC'd to
.Cc = ""
'The subject of the e-mail
.Subject = "testing"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
.TextBody = "This is a test...only a test!"
.Fields.Update
'Send the e-mail
.Send
End With
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "sent"
 
i believe the problem is due to your smtpserver, your server should be something like mail.elaptop.com also you will need a username and password if your smtpserver requires authentication
 
Steven,

Thnks for the input. Sorry I didn't add on to what is currently set. Under GENERAL tab for smtp properties i have set to all (unassigned) port 25. Under ACCESS tab I have set to Anonymous aceess, so no authentication is required. Undercertificates...I have none...under CONNECTION I have ANY pc able to connect and same for RELAY. I tried to change the elaptop.com(valid DNS name) to mail.elaptop.com and got same results. It makes no sense what-so-ever to me as to why It connects...it does not...does...does not..etc...can someone PLEASE try out thiscodeon their SMTP vitual server and if it works tell me their settings? It would be greatly appreciated. BTW....I had no problem using CDDONT's; however, I'm on an XP Pro box and I don't think I can use that...if I can can someone point me in the right direction?. Again, thanks Steve and to anyone else that can help me out with this head scratcher.

Brian
 
if you are sending from home, change the "sendusing" configuation from 2 to 1 and let us know what happen
 
Thanks Steve,

It sent directly to queue folder...and stuck there. Change it back to 2 and intermittent connections; however, it sends to the yahoo address when no error occurs. Still scratching head ;-) Anyways, is the a CDO method that's just as easy to put on a LOCAL smptp server and what settings I need to have? I tried the bare basic ones and they all get stuck in queue! Crazy...again, thanks

Brian
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top