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 = "Somebody@somewhere.com"
cdoMessage.To = "jim.flaherty@somewhere.com"
cdoMessage.Subject = "An On-line survey has been Completed"
cdoMessage.TextBody = mess1
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing




Thanks
Jim

http://www.aspfaq.com/2305

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




"Jim Flaherty" <jim.flaherty@cnet.navy.mil> wrote in message
news:9514066b.0312010822.45d4054d@posting.google.c om...[color=blue]
> 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 = "Somebody@somewhere.com"
> cdoMessage.To = "jim.flaherty@somewhere.com"
> cdoMessage.Subject = "An On-line survey has been Completed"
> cdoMessage.TextBody = mess1
> cdoMessage.Send
> Set cdoMessage = Nothing
> Set cdoConfig = Nothing
>
>
>
>
> Thanks
> Jim[/color]