PDA

Visualizza la versione completa : CDO.Message.1 error '80070005' access denied


legal-x
24-02-2010, 18:33
Salve,

utilizzo questo script sendmail su un server windows 2003 web edition (32bit) senza problemi, ...lo stesso per˛ su windows 2008 web edition (64bit) genera il seg. errore:

CDO.Message.1

error '80070005'

Access is denied.

Ecco lo script:

Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")

With objConfig
.Fields("http://schemas.microoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

objMail.From = "info@miodominio.it"
objMail.To = "info@miodominio.it"
objMail.Bcc = "info@miodominio.it"
objMail.Subject = "oggetto"
objMail.htmlBody = "<html><head></head><body style=""font-family:arial;font-size:12px;"">

prova invio</p></body></html>"
objMail.Send()
Set objMail = Nothing




Qualche idea ?

agenti
25-02-2010, 10:26
hai inserito la chiamata alle librerie cdosys ?

legal-x
25-02-2010, 11:49
ho risolto:

bisognava settare i permessi lettura/scrittura a c:\inetpub\mailroot\pickup per il gruppo Network Services .... :dh˛:

ma perchŔ queste cose non le mettono di default ?!? :cry:

Loading