CDOSYS and E-mail problem

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Matthew - 31 Dec 2005 08:05 GMT

I have written a web page to use cdosys to e-mail. The page works fine on 2
of my 3 servers, all Windows 2003 with IIS 6.0 and ASP 2.0.

Anyways, on the one server I get the following error:

CDO.Configuration.1 error '8007007f'

The specified procedure could not be found.

/email.asp, line 17

Line 17 is the first line is the first to write to the CDO.Message object as
follows:

ObjSendMail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

Since my code works on 2 other machines, I figure it has to be something in
the permissions. But the statement 'procedure could not be found' tells me
nothing. I am at a loss, any ideas would help.

Reply to this Message

Christopher Reed - 31 Dec 2005 14:24 GMT

Verify that your version of CDO is the same on all servers. Also, I believe
SMTP needs to be available as well.

Signature

Christopher A. Reed
"The oxen are slow, but the earth is patient."

>I have written a web page to use cdosys to e-mail. The page works fine on 2
> of my 3 servers, all Windows 2003 with IIS 6.0 and ASP 2.0.
[quoted text clipped - 18 lines]
> the permissions. But the statement 'procedure could not be found' tells me
> nothing. I am at a loss, any ideas would help.

Reply to this Message

Egbert Nierop (MVP for IIS) - 31 Dec 2005 15:57 GMT

> Verify that your version of CDO is the same on all servers. Also, I
> believe SMTP needs to be available as well.

Addition,

CDOSYS is able to use a remote server.

Check your code against this...
as well, many VBS programmers forget to use the keyword Set

Set mail.Configuration = cdoConfig

and write:

mail.Configuration = cdoConfig

This might often work, but often not at all.

Public Sub SendMail(vFrom, vTo, vSubject, vCc)
Dim cdoConfig, mail, sch
'Response.Write vFrom
'Response.Write vTo
'Response.Write vSubject
'Response.Write vCC
Set cdoConfig = CreateObject("CDO.Configuration")
Set mail = CreateObject("CDO.Message")

sch = "http://schemas.microsoft.com/cdo/configuration/"
with cdoConfig.fields
.item(sch + "sendpassword").value = "*********"
.item(sch + "sendusername").value = "your SMTP user"
.item(sch + "sendusing").value = 2
.item(sch + "smtpserver").value = "192.168.0.7"
.Update()
End With
Set mail.Configuration = cdoConfig
mail.to = vTo
mail.From = vFrom
If not isempty(vCc) Then mail.Cc = vCc
If len(vSubject) > 255 Then
mail.TextBody = vSubject
vSubject = Left(vSubject,255)
End If
mail.Subject = vSubject
mail.Send
End Sub

>>I have written a web page to use cdosys to e-mail. The page works fine on
>>2
[quoted text clipped - 20 lines]
>> me
>> nothing. I am at a loss, any ideas would help.

Reply to this Message