CDO.Message.1 error '80070005' Acceso denegado.

Question

estoy recibiendo este error cuando intento enviar a través del servidor local

CDO.Message.1 error '80070005' 

Access is denied. 

/mail.asp, line xxx 

Aquí está el código que estoy utilizando

MailBodyText = "TEST" 

    Set objNewMail = CreateObject("CDO.Message") 
    objNewMail.To = sSendTo 
    objNewMail.From = "webmaster@EXAMPLE.com" 
    objNewMail.Cc = "webmaster@EXAMPLE.com" 
    objNewMail.Subject = "Information Request & Feedback" 
    objNewMail.HTMLBody = "The following information was sent from " & sEmail & ":" & "<br>" & CHR(13) & MailBodyText & "<br>copies of this mail we sent to :"& sSendTo 
    objNewMail.Send 

    Set objNewMail = Nothing 

Parece que se trata de un error de permiso en el issur doesn' t tiene permiso de escritura para escribir en la carpeta mailroot/pickup.

Pero lo hemos comprobado y la cuenta de servicios que este sitio está utilizando parece tener los derechos.

Pregunta ¿este error siempre es un error de permiso de archivo?

Pregunta cómo saber/establecer la ubicación que utiliza CDO? Entonces, podemos confirmar los permisos

¿Qué más debería ver para solucionar esto?

Answer 1

utilizar la propiedad .configuration que permite la autenticación y otra sintonía fina ..

ejemplos en: http://www.paulsadowski.com/wsh/cdo.htm

actualización

La propiedad .configuration permite configurar el directorio de recogida (como solicita)

objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" 
objNewMail.Configuration.Fields.Update 
objNewMail.Send 

Answer 2

Estoy migrando algunos sitios asp clásicos antiguos a un servidor nuevo (Windows 2008R2) y tuve "exactamente" el mismo problema (al menos el mismo error y básicamente el mismo código). La solución presentada por Gaby:

objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" 

no funcionó para mí, todavía tenía el mismo error.

Después de buscar información me encontré con esta sugerencia:

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 

(NO ajuste el smtpserverpickupdirectory)

ahora funciona bien.

Por cierto, si necesita configurar el servicio SMTP necesario en el servidor de Windows 2008 (IIS7), encontré this blog extremadamente útil.

ACTUALIZACIÓN:

Según microsoft sendusing = 1 utiliza el servidor SMTP y SendUsing 2 utiliza Outlook Express, he mirado en el servidor, y no parece ser OutlookExpress o correo instalado ventanas , todavía este ajuste funciona para mí. Si alguien pudiera explicar que tengo curiosidad por saberlo.

Answer 3

SI NO QUIERES CAMBIAR SU CÓDIGO

subvención IIS_IUSRS grupo acceso de escritura a c: \ inetpub \ Mailroot \ Pickup carpeta o lo que es su directorio de recogida.

Debe ser IIS_IUSRS Grupo, no el usuario IUSR (lo tienes mispelled probablemente).

que estaba recibiendo este error después de realizar los pasos especificados en la opción 3 en blog.msdn.com

No he tenido que cambiar el código ASP. Tu código funciona bien en mi servidor.