cdo.message

[Hugh Welford]

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, adopenforwardon ly, adlockoptimisti c, adcmdtext

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

Set cdoConfig = Server.CreateOb ject("CDO.Confi guration")
With cdoConfig.Field s
..Item(cdoSendU singMethod) = cdoSendUsingPor t
..Item(cdoSMTPS erver) = "pegasus.intone t.co.uk"
..Update
End With
Set cdoMessage = Server.CreateOb ject("CDO.Messa ge")
With cdoMessage
Set.Configurati on = cdoConfig
..From = "webmaster@onli neconnect.biz"
..To = objrec("emailad dress")
..cc = "ulyssian@hotma il.com"
..Subject = "New messgage from Online Connect"
..HTMLBody = thetext
..Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing

any ideas?? thanks in advance Hugh

[Slim]

Re: cdo.message

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/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_configuration.asp

Dim iMsg As CDO.Message
Dim iConf
Dim Flds
Const cdoSendUsingPic kup = 1
Const strPickup = "c:\inetpub\mai lroot\pickup"

Private Sub createMailObjec t()


'Create the message object.
Set iMsg = CreateObject("C DO.Message")

'Create the configuration object.
Set iConf = iMsg.Configurat ion

With iConf.Fields
.Item("http://schemas.microso ft.com/cdo/configuration/sendusing") =
cdoSendUsingPic kup

..Item("http://schemas.microso ft.com/cdo/configuration/smtpserverpicku pdirect
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 = "")
createMailObjec t


With iMsg
If IsArray(cdoAttc h) 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 = "")
createMailObjec t
With iMsg
If IsArray(cdoAttc h) 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(cdo To As String, cdoFRom As String, cdoSubject As String,
cdoPage As String, Optional cdoAttch As Variant = "")
createMailObjec t
With iMsg
With iMsg
If IsArray(cdoAttc h) Then
For Each thing In cdoAttch
.AddAttachment (thing)
Next
End If
.To = cdoTo
.From = cdoFRom
.Subject = cdoSubject
.CreateMHTMLBod y 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.microso ft.com/cdo/configuration/"

Set cdoConfig = Server.CreateOb ject("CDO.Confi guration")

cdoConfig.Field s.Item(sch & "sendusing" ) = 2

cdoConfig.Field s.Item(sch & "smtpserver ") = "<enter_mail.se rver_here>"

cdoConfig.field s.update

Set cdoMessage = Server.CreateOb ject("CDO.Messa ge")

Set cdoMessage.Conf iguration = cdoConfig

cdoMessage.From = "from@me.co m"

cdoMessage.To = "to@me.com"

cdoMessage.Subj ect = "Sample CDONTS NewMail"

cdoMessage.Text Body = "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.Field s.Item(sch & "sendusing" ) = 2

Becomes

cdoConfig.Field s.Item(sch & "sendusing" ) = 1









"Hugh Welford" <hugh.welford@b tinternet.com> wrote in message
news:ecVkPtvREH A.3140@tk2msftn gp13.phx.gbl...[color=blue]
> 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, adopenforwardon ly, adlockoptimisti c,[/color]
adcmdtext[color=blue]
>
> thetext = "Hello, " & request("nickto ") & " you have a new message on[/color]
online[color=blue]
> Connect from " & session("userna me") & "<br> <a target='_top'
> href='http://www.onlineconne ct.biz/daters'><big><e m><strong>Clic k here to
> log
> into the site</strong></em></big></a> then check your messages.<br> Good
> luck"
>
> Set cdoConfig = Server.CreateOb ject("CDO.Confi guration")
> With cdoConfig.Field s
> .Item(cdoSendUs ingMethod) = cdoSendUsingPor t
> .Item(cdoSMTPSe rver) = "pegasus.intone t.co.uk"
> .Update
> End With
> Set cdoMessage = Server.CreateOb ject("CDO.Messa ge")
> With cdoMessage
> Set.Configurati on = cdoConfig
> .From = "webmaster@onli neconnect.biz"
> .To = objrec("emailad dress")
> .cc = "ulyssian@hotma il.com"
> .Subject = "New messgage from Online Connect"
> .HTMLBody = thetext
> .Send
> End With
> Set cdoMessage = Nothing
> Set cdoConfig = Nothing
>
> any ideas?? thanks in advance Hugh
>
>
>
>[/color]

[Aaron [SQL Server MVP]]

Re: cdo.message

http://www.aspfaq.com/2305

--
Aaron Bertrand
SQL Server MVP

http://www.aspfaq.com/

(Reverse e-mail to reply.)





"Hugh Welford" <hugh.welford@b tinternet.com> wrote in message
news:ecVkPtvREH A.3140@tk2msftn gp13.phx.gbl...[color=blue]
> 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, adopenforwardon ly, adlockoptimisti c,
> adcmdtext
>
> thetext = "Hello, " & request("nickto ") & " you have a new message on
> online
> Connect from " & session("userna me") & "<br> <a target='_top'
> href='http://www.onlineconne ct.biz/daters'><big><e m><strong>Clic k here to
> log
> into the site</strong></em></big></a> then check your messages.<br> Good
> luck"
>
> Set cdoConfig = Server.CreateOb ject("CDO.Confi guration")
> With cdoConfig.Field s
> .Item(cdoSendUs ingMethod) = cdoSendUsingPor t
> .Item(cdoSMTPSe rver) = "pegasus.intone t.co.uk"
> .Update
> End With
> Set cdoMessage = Server.CreateOb ject("CDO.Messa ge")
> With cdoMessage
> Set.Configurati on = cdoConfig
> .From = "webmaster@onli neconnect.biz"
> .To = objrec("emailad dress")
> .cc = "ulyssian@hotma il.com"
> .Subject = "New messgage from Online Connect"
> .HTMLBody = thetext
> .Send
> End With
> Set cdoMessage = Nothing
> Set cdoConfig = Nothing
>
> any ideas?? thanks in advance Hugh
>
>
>
>[/color]

[Hugh Welford]

Re: cdo.message

thanks guys


"Hugh Welford" <hugh.welford@b tinternet.com> wrote in message
news:ecVkPtvREH A.3140@tk2msftn gp13.phx.gbl...[color=blue]
> 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, adopenforwardon ly, adlockoptimisti c,[/color]
adcmdtext[color=blue]
>
> thetext = "Hello, " & request("nickto ") & " you have a new message on[/color]
online[color=blue]
> Connect from " & session("userna me") & "<br> <a target='_top'
> href='http://www.onlineconne ct.biz/daters'><big><e m><strong>Clic k here to
> log
> into the site</strong></em></big></a> then check your messages.<br> Good
> luck"
>
> Set cdoConfig = Server.CreateOb ject("CDO.Confi guration")
> With cdoConfig.Field s
> .Item(cdoSendUs ingMethod) = cdoSendUsingPor t
> .Item(cdoSMTPSe rver) = "pegasus.intone t.co.uk"
> .Update
> End With
> Set cdoMessage = Server.CreateOb ject("CDO.Messa ge")
> With cdoMessage
> Set.Configurati on = cdoConfig
> .From = "webmaster@onli neconnect.biz"
> .To = objrec("emailad dress")
> .cc = "ulyssian@hotma il.com"
> .Subject = "New messgage from Online Connect"
> .HTMLBody = thetext
> .Send
> End With
> Set cdoMessage = Nothing
> Set cdoConfig = Nothing
>
> any ideas?? thanks in advance Hugh
>
>
>
>[/color]