Ошибка CDO.Message.1 '80070005' Доступ отклонена.
Я получаю эту ошибку, когда я пытаюсь отправить через локальный сервер
CDO.Message.1 error '80070005'
Access is denied.
/mail.asp, line xxx
Вот код, который я использую
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
Похоже, что это - ошибка разрешения в ISSUR, не имеет разрешения записи записать в mailroot/pickup папку.
Но мы проверили, что и сервисная учетная запись, которую использует этот сайт, кажется, имеет права.
Вопросом всегда является эта ошибка ошибка разрешения файла?
Подвергните сомнению, как знать / устанавливает местоположение, которое использует CDO? Таким образом, мы можем подтвердить полномочия
Что еще должно посмотреть на зафиксировать это?
1 ответ
Используйте свойство .configuration , которое позволяет выполнять аутентификацию и другие тонкие настройки ..
примеры на: http://www.paulsadowski.com/ wsh / cdo.htm
update
Свойство .configuration позволяет установить каталог раскладки ( по вашему запросу )
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