Why does CDO.Message give me 8004020F errors?

When switching from CDONTS to CDO.Message, and using code like the following (as described in Article #2026):

<%
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "<enter_mail.server_here>"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "from@me.com"
.To = "to@me.com"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

You might come across the following error:

error '8004020f'
The event class for this subscription is in an invalid partition

This error message comes from cdosys.h, and has nothing to do with any sort of "partition" - it is actually lumped in with other errors in an overloaded message. The error code is actually attributed to the following:

CONST LONG CDO_E_RECIPIENTS_REJECTED = 0x8004020FL

Which means that the e-mail was rejected by the server for some reason. Here are some things you can try to alleviate the problem:

Make sure the SMTP server allows anonymous (non-authenticated) relaying. If your SMTP requires outgoing authentication, see Article #2026.
Check if the problem is specific to the domain name(s) used in the e-mail addresses of the recipients. For example, some users have complained that they can send to users on their own domain only; others have said that they can send to any domain except their own (see Article #2511 for some potential causes and solutions).
It may be simply that the e-mail address is being rejected, but other configuration settings on the SMTP server are preventing the true error message from being relayed propely back to the ASP script ... so verify that the address is valid.
If you have a proxy or firewall, make sure the web server is set up to correctly pass through it, that the SMTP server knows about it, and that the proxy allows access to port 25.
Try using a SendUsing value of 1 (pickup) instead of 2 (port). E.g. the following line:

.Item(cdoSendUsingMethod) = cdoSendUsingPort

Becomes

.Item(cdoSendUsingMethod) = cdoSendUsingPickup



// home // advanced search // news // categories // sql build chart // downloads // statistics
ASP FAQ

Why does CDO.Message give me 8004020F errors?

Related Articles