Email Problem

itHighway · August 25th, 2005, 12:29 AM

There seems to be an error with CDOSYS email script. I cant use it on 2 servers

The error I get is..

ADODB.Fields error '800a0ea5'
Fields update failed. For further information, examine the Status property of individual field objects.

The error is on line ".Update"

set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")

set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = <smtp address>
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 25
.Update
End With

With iMsg
Set .Configuration = iConf
.To = <email address>
.From = <email address>
.Subject = <subject>
.HTMLBody = <message body>
.fields.update
.Send
End With

set imsg = nothing
set iconf = nothing

ChrisScott · August 25th, 2005, 05:14 AM

I think the value of the sendusing field is incorrect, try this...

Code:

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")       = 2 ' send using port
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")    = <smtp address>
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25

HTH,

Chris