By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,414 Members | 1,024 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,414 IT Pros & Developers. It's quick & easy.

cdo.message

P: n/a
Hi Using WIN XP and FP2000

Using CDO.message to out put a message from my site, I get the following
error message 8004020f from using the code:-

strsql = "SELECT * FROM details WHERE patid = " & request("to") & ";"
objrec.open strsql, objconn, adopenforwardonly, adlockoptimistic, adcmdtext

thetext = "Hello, " & request("nickto") & " you have a new message on online
Connect from " & session("username") & "<br> <a target='_top'
href='http://www.onlineconnect.biz/daters'><big><em><strong>Click here to
log
into the site</strong></em></big></a> then check your messages.<br> Good
luck"

Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
..Item(cdoSendUsingMethod) = cdoSendUsingPort
..Item(cdoSMTPServer) = "pegasus.intonet.co.uk"
..Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set.Configuration = cdoConfig
..From = "we*******@onlineconnect.biz"
..To = objrec("emailaddress")
..cc = "ul******@hotmail.com"
..Subject = "New messgage from Online Connect"
..HTMLBody = thetext
..Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing

any ideas?? thanks in advance Hugh


Jul 19 '05 #1
Share this Question
Share on Google+
3 Replies


P: n/a
there is something at aspfaq.com I have posted further down, but first I
would try this code directly below. (its in VB, you need to make
adjustments).

it seems to work from behind firewalls and the like, more info here
http://msdn.microsoft.com/library/de...figuration.asp

Dim iMsg As CDO.Message
Dim iConf
Dim Flds
Const cdoSendUsingPickup = 1
Const strPickup = "c:\inetpub\mailroot\pickup"

Private Sub createMailObject()
'Create the message object.
Set iMsg = CreateObject("CDO.Message")

'Create the configuration object.
Set iConf = iMsg.Configuration

With iConf.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPickup

..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirect
ory") = strPickup
.Update
End With

End Sub


Sub sendHTML(cdoTo As String, cdoFRom As String, cdoSubject As String,
cdoHTML As String, Optional cdoAttch As Variant = "")
createMailObject
With iMsg
If IsArray(cdoAttch) Then
For Each thing In cdoAttch
.AddAttachment (thing)
Next
End If
.To = cdoTo
.From = cdoFRom
.Subject = cdoSubject
.HTMLBody = cdoHTML
.Send
End With
Set iMsg = Nothing
End Sub
Sub sendText(cdoTo As String, cdoFRom As String, cdoSubject As String,
cdoText As String, Optional cdoAttch As Variant = "")
createMailObject
With iMsg
If IsArray(cdoAttch) Then
For Each thing In cdoAttch
.AddAttachment (thing)
Next
End If
.To = cdoTo
.From = cdoFRom
.Subject = cdoSubject
.TextBody = cdoText
.Send
End With
Set iMsg = Nothing
End Sub
Sub sendWebPage(cdoTo As String, cdoFRom As String, cdoSubject As String,
cdoPage As String, Optional cdoAttch As Variant = "")
createMailObject
With iMsg
With iMsg
If IsArray(cdoAttch) Then
For Each thing In cdoAttch
.AddAttachment (thing)
Next
End If
.To = cdoTo
.From = cdoFRom
.Subject = cdoSubject
.CreateMHTMLBody cdoPage
.Send
.HTMLBody = ""
End With
End With
Set iMsg = Nothing
End Sub
Private Sub Class_Terminate()
Set iMsg = Nothing
End Sub




Why does CDO.Message give me an 8004020f error?

492 requests - last updated Thursday, June 27, 2002

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

<%

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

Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpserver") = "<enter_mail.server_here>"

cdoConfig.fields.update

Set cdoMessage = Server.CreateObject("CDO.Message")

Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = "fr**@me.com"

cdoMessage.To = "to@me.com"

cdoMessage.Subject = "Sample CDONTS NewMail"

cdoMessage.TextBody = "This is a test for CDONTS message"

cdoMessage.Send

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

/<file>.asp, line <line>

It is not clear where this error message comes from; it's not even in
Microsoft's Knowledge Base or MSDN Library.

However here are some things you can try to alleviate the problem:

1. Make sure the SMTP server allows anonymous (non-authenticated) relaying.
Otherwise, you'll have to use a

mail component that supports SMTP authentication, like ASPEmail.

2. 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.

3. 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.

4. Try using a SendUsing value of 1 (pickup) instead of 2 (port). E.g. the
following line:

cdoConfig.Fields.Item(sch & "sendusing") = 2

Becomes

cdoConfig.Fields.Item(sch & "sendusing") = 1



"Hugh Welford" <hu**********@btinternet.com> wrote in message
news:ec**************@tk2msftngp13.phx.gbl...
Hi Using WIN XP and FP2000

Using CDO.message to out put a message from my site, I get the following
error message 8004020f from using the code:-

strsql = "SELECT * FROM details WHERE patid = " & request("to") & ";"
objrec.open strsql, objconn, adopenforwardonly, adlockoptimistic, adcmdtext
thetext = "Hello, " & request("nickto") & " you have a new message on online Connect from " & session("username") & "<br> <a target='_top'
href='http://www.onlineconnect.biz/daters'><big><em><strong>Click here to
log
into the site</strong></em></big></a> then check your messages.<br> Good
luck"

Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "pegasus.intonet.co.uk"
.Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set.Configuration = cdoConfig
.From = "we*******@onlineconnect.biz"
.To = objrec("emailaddress")
.cc = "ul******@hotmail.com"
.Subject = "New messgage from Online Connect"
.HTMLBody = thetext
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing

any ideas?? thanks in advance Hugh

Jul 19 '05 #2

P: n/a
http://www.aspfaq.com/2305

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/
(Reverse e-mail to reply.)

"Hugh Welford" <hu**********@btinternet.com> wrote in message
news:ec**************@tk2msftngp13.phx.gbl...
Hi Using WIN XP and FP2000

Using CDO.message to out put a message from my site, I get the following
error message 8004020f from using the code:-

strsql = "SELECT * FROM details WHERE patid = " & request("to") & ";"
objrec.open strsql, objconn, adopenforwardonly, adlockoptimistic,
adcmdtext

thetext = "Hello, " & request("nickto") & " you have a new message on
online
Connect from " & session("username") & "<br> <a target='_top'
href='http://www.onlineconnect.biz/daters'><big><em><strong>Click here to
log
into the site</strong></em></big></a> then check your messages.<br> Good
luck"

Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "pegasus.intonet.co.uk"
.Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set.Configuration = cdoConfig
.From = "we*******@onlineconnect.biz"
.To = objrec("emailaddress")
.cc = "ul******@hotmail.com"
.Subject = "New messgage from Online Connect"
.HTMLBody = thetext
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing

any ideas?? thanks in advance Hugh

Jul 19 '05 #3

P: n/a
thanks guys
"Hugh Welford" <hu**********@btinternet.com> wrote in message
news:ec**************@tk2msftngp13.phx.gbl...
Hi Using WIN XP and FP2000

Using CDO.message to out put a message from my site, I get the following
error message 8004020f from using the code:-

strsql = "SELECT * FROM details WHERE patid = " & request("to") & ";"
objrec.open strsql, objconn, adopenforwardonly, adlockoptimistic, adcmdtext
thetext = "Hello, " & request("nickto") & " you have a new message on online Connect from " & session("username") & "<br> <a target='_top'
href='http://www.onlineconnect.biz/daters'><big><em><strong>Click here to
log
into the site</strong></em></big></a> then check your messages.<br> Good
luck"

Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "pegasus.intonet.co.uk"
.Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set.Configuration = cdoConfig
.From = "we*******@onlineconnect.biz"
.To = objrec("emailaddress")
.cc = "ul******@hotmail.com"
.Subject = "New messgage from Online Connect"
.HTMLBody = thetext
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing

any ideas?? thanks in advance Hugh

Jul 19 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.