Ошибка почты ASP: класс событий для этой подписки находится в недопустимом разделе - PullRequest
Новая
       38

Ошибка почты ASP: класс событий для этой подписки находится в недопустимом разделе

1 голос
/ 09 июня 2010

У меня есть некоторый ASP-код, который я «унаследовал» от своего предшественника (нет, сейчас не возможно обновить его ... Это потребует действий не только Конгресса, но и любой другой зарубежной страны ) и у меня возникла проблема с отправкой почты на одной из страниц. Это почти идентичный фрагмент кода с другой страницы, но при попытке «Отправить» выдается ошибка.

Код ниже: 

Set myMail=CreateObject("CDO.Message")
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost"

'Server port
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update

myMail.Subject="Subject"
myMail.From=from_email
myMail.To=email
myMail.TextBody= "Body Text of message"
myMail.Send

Ошибка: Тип ошибки: (0x8004020F) Класс событий для этой подписки находится в недопустимом разделе

Буду признателен за любую помощь !!!

Спасибо! JFV

Ответы [ 2 ]

2 голосов
/ 10 июня 2010

У меня были похожие проблемы при попытке заставить CDO работать.На этом сайте я нашел действительно классную статью Почему CDO.Message выдает ошибки 8004020F?

Вот код, который я наконец-то начал работать.Я никогда не мог заставить localhost работать как SMTP-сервер.Узнайте, как называется почтовый сервер, и обязательно используйте это имя. 

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "nameofmailservergoeshere"
        .Update
End With


Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
        Set .Configuration = cdoConfig
        .From = "me@mywebsite.com"
        .To = "you@yourwebsite.com"
        .Subject = "Sample CDO Message"
        .TextBody = "This is a a test message using CDO."
        .Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
1 голос
/ 10 июня 2010

Это похоже на проблему с сервером SMTP ...

взгляните на http://forums.aspfree.com/asp-development-5/the-event-class-for-this-subscription-is-in-an-invalid-103189.html

, а также

http://www.powerasp.com/info/4558~General~info.htm

...