CDO Message Send Error 0x800ccc13 / 15

  • Thread starter Thread starter Rod Behr
  • Start date Start date
R

Rod Behr

My code sends an e-mail using our SMTP server:

Set objCDOConfig = CreateObject("CDO.Configuration")
sch = "http://schemas.microsoft.com/cdo/configuration/"
With objCDOConfig
.Fields.Item(sch & "sendusing") = 2
.Fields.Item(sch & "smtpserver") = "111.222.333.444"
.Fields.Item(sch & "smtpserverport") = 25
.Fields.Update
End With
Set objMessage = CreateObject("CDO.Message")
With objMessage
.Configuration = objCDOConfig
.Subject = "My Subject"
.From = """UserName"" <[email protected]>"
.To = "(e-mail address removed)"
.HTMLBody = "My HTML message"
.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"
.Fields.Item("urn:schemas:mailheader:X-Priority") = 2
.Fields.Item("urn:schemas:httpmail:importance") = 2
.Fields.Update
.Send
End With
Set objMessage = Nothing
Set objCDOConfig = Nothing

In response, I get error message 0x800ccc13 or 0x800ccc15. If I remove the
"sendusing" and "smtpserverport" lines, I get no error message but no e-mail
is sent either.

Using Outlook Express as a client on the saem PC, I have tested that the
SMTP server is up and running fine.

What should I be looking for?
 
It's not a great match, but you'd probably be better off asking in an
Outlook group, as they're more likely to have experience with CDO than we do
in an Access group.

If you're sure everything else is the same between CDO and OE, have you
considered the possibility that it's a virus scanner getting in the way?
Maybe OE is getting white-listed, but your app isn't? That's a stab in the
dark, really, but worth a shot.


Rob
 
Rod Behr said:
My code sends an e-mail using our SMTP server:

Set objCDOConfig = CreateObject("CDO.Configuration")
sch = "http://schemas.microsoft.com/cdo/configuration/"
With objCDOConfig
.Fields.Item(sch & "sendusing") = 2
.Fields.Item(sch & "smtpserver") = "111.222.333.444"
.Fields.Item(sch & "smtpserverport") = 25
.Fields.Update
End With
Set objMessage = CreateObject("CDO.Message")
With objMessage
.Configuration = objCDOConfig
.Subject = "My Subject"
.From = """UserName"" <[email protected]>"
.To = "(e-mail address removed)"
.HTMLBody = "My HTML message"
.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"
.Fields.Item("urn:schemas:mailheader:X-Priority") = 2
.Fields.Item("urn:schemas:httpmail:importance") = 2
.Fields.Update
.Send
End With
Set objMessage = Nothing
Set objCDOConfig = Nothing

In response, I get error message 0x800ccc13 or 0x800ccc15. If I remove the
"sendusing" and "smtpserverport" lines, I get no error message but no
e-mail
is sent either.

Using Outlook Express as a client on the saem PC, I have tested that the
SMTP server is up and running fine.

What should I be looking for?
Click to expand...

I think the problem may lie with the line:

..Configuration = objCDOConfig

I'm pretty sure that ought to be:

Set .Configuration = objCDOConfig
 
Back
Top