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

Question

Я пытаюсь отправить электронное письмо через классического ASP, но это дает мне ошибку ниже.

CDO.Message.1 error '80040213' The transport failed to connect to the server. /hotemp/regnew.asp, line 507

Первоначально он работал нормально, внезапно выдает вышеуказанную ошибку. Я погуглил, но это не помогло. Любые предложения о том, как преодолеть это. Спасибо

Мой код ниже:

<%

 Set Mail = CreateObject("CDO.Message")

    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[e-mail]"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"

Mail.Configuration.Fields.Update

Mail.Subject="Sending via classic asp"
Mail.From="[e-mail]"
Mail.To="[e-mail]"

Mail.TextBody="please fill the form" 
Mail.Send      ` line 507
Set Mail = Nothing

%>

Answer 1

Обычно, когда код начинает работать нормально, а затем завершается сбоем без внесения каких-либо изменений в код, это происходит из-за изменений на сервере.

Я бы рискнул предположить, что вы отправляете слишком много писем, или что Gmail считает ваши сообщения немного спамом и прекратил принимать соединения.

Обычно при отправке электронной почты из такого веб-приложения лучше использовать почтовый сервер, предоставляемый вашим хостом, или подписаться на сервис, предлагающий подобные вещи.