Код после cdo.message.send не будет выполняться в классическом ASP

Вот мой полный код. Другого кода на всей странице нет.

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message. "
Response.write "Execution Reached Before Send!"
myMail.Send
Response.write "Execution Reached After Send!"
set myMail=nothing

Когда я запускаю эту страницу asp, я получаю результат «Выполнение достигнуто перед отправкой!». Других сообщений об ошибках нет. Все, что я могу понять из этого, это что-то после того, как myMail.Send не выполняется, и я также не получаю никаких электронных писем.

Я использую Windows Server 2008 R2 Standard (Service Pack 1). Почтовый сервер SMTP установлен на локальной машине. Я создал тестовое электронное письмо и закинул его в папку «C:\inetpub\mailroot\Pickup», и оно отлично сработало.


send asp-classic windows-server-2008-r2 cdo.message
person Cherian M Paul    schedule 14.08.2013    source источник
comment
Код заработал после того, как я добавил эти четыре строки перед отправкой. myMail.Configuration.Fields.Item (schemas.microsoft.com/cdo/configuration/sendusing) = 2 myMail.Configuration.Fields.Item (schemas.microsoft.com/cdo/configuration/ smtpserver) = localhost myMail.Configuration.Fields.Item (schemas.microsoft.com/ cdo/configuration/smtpserverport) = 25 myMail.Configuration.Fields.Update   -  person Cherian M Paul    schedule 14.08.2013
comment
Пожалуйста, добавьте свой комментарий в качестве ответа. (Или удалите сам вопрос, если вы не считаете, что он имеет значение.)   -  person John Parker    schedule 14.08.2013
comment
Это не позволит мне добавить в качестве ответа. В нем говорится, что мне нужно подождать 8 часов, прежде чем я смогу ответить на свой вопрос.   -  person Cherian M Paul    schedule 14.08.2013
comment
В таком случае зайдите завтра. :-)   -  person John Parker    schedule 14.08.2013

Ответы (1)


arrow_upward
0
arrow_downward

Код заработал после того, как я добавил эти четыре строки перед отправкой.

myMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
myMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
person Cherian M Paul    schedule 15.08.2013