0x8004020F error with CDO.message

[Jim Flaherty]

THis did work ... now it dont... any Ideas?

myMailServer = "smtp.somewhere.com" 'ip address or fqdn

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
cdoConfig.fields.update

Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "So******@somewhere.com"
cdoMessage.To = "ji**********@somewhere.com"
cdoMessage.Subject = "An On-line survey has been Completed"
cdoMessage.TextBody = mess1
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing


Thanks
Jim

[Aaron Bertrand - MVP]

http://www.aspfaq.com/2305

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/


"Jim Flaherty" <ji**********@cnet.navy.mil> wrote in message
news:95**************************@posting.google.c om...

THis did work ... now it dont... any Ideas?

myMailServer = "smtp.somewhere.com" 'ip address or fqdn

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
cdoConfig.fields.update

Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "So******@somewhere.com"
cdoMessage.To = "ji**********@somewhere.com"
cdoMessage.Subject = "An On-line survey has been Completed"
cdoMessage.TextBody = mess1
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing


Thanks
Jim