Errore CDO.Message.1 '80070005' Accesso negato.

Question

sto ottenendo questo errore quando provo a trasmettere tramite il server locale

CDO.Message.1 error '80070005' 

Access is denied. 

/mail.asp, line xxx 

Ecco il codice che sto usando

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 

Sembra Si tratta di un errore di autorizzazione al Issur doesn' t hanno il permesso di scrittura per scrivere nella cartella mailroot/pickup.

Ma abbiamo verificato che e l'account di servizi utilizzato da questo sito sembra avere i diritti.

Domanda è questo errore sempre un errore di autorizzazione file?

Domanda come sapere/impostare la posizione che sta utilizzando CDO? Quindi possiamo confermare le autorizzazioni

Che altro dovrebbe guardare per risolvere questo problema?

Answer 1

utilizzare la proprietà .configuration che consente l'autenticazione e l'altro la messa a punto ..

esempi a: http://www.paulsadowski.com/wsh/cdo.htm

aggiornamento

La proprietà .configuration permette di impostare la directory di prelievo (come da richiesta)

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

Sto migrando alcuni vecchi siti classici di asp a un nuovo server (Windows 2008R2) e ho avuto "esattamente" lo stesso problema (beh, almeno lo stesso errore e praticamente lo stesso codice). La soluzione presentata da 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" 

non ha funzionato per me, ho ancora avuto lo stesso errore.

Dopo qualche ricerca ho trovato questo suggerimento:

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

(NON impostare lo smtpserverpickupdirectory)

Ora funziona benissimo.

A proposito, se è necessario configurare il servizio SMTP necessario sul server Windows 2008 (IIS7), ho trovato estremamente utile this blog.

UPDATE:

Secondo microsoft sendusing = 1 utilizza il server SMTP e SendUsing 2 utilizza Outlook Express, ho guardato sul server, e non sembra essere OutlookExpress o Windows Mail installato , ancora questa impostazione funziona per me. Se qualcuno potesse spiegare che sono curioso di sapere.

Answer 3

SE NON VOLETE CAMBIARE IL CODICE

Concessione IIS_IUSRS gruppo l'accesso in scrittura ai c: \ inetpub \ Mailroot \ Pickup cartella o tutto ciò che è tuo dir pick-up.

Dev'essere IIS_IUSRS Gruppo, non il IUSR utente (avete capito bene mispelled probabilmente).

mi è stato sempre questo errore dopo l'esecuzione di operazioni di cui l'opzione 3 a blog.msdn.com

non ho dovuto modificare il codice ASP. Il tuo codice funziona bene sul mio server.