CDO ERROR
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.
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
|
