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 = "(e-mail address removed)"
cdoMessage.To = "(e-mail address removed)"
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