Question

作为网页设计项目的一部分，我一直在测试以下脚本，以便在Classic ASP中使用VBScript将提交的表单作为电子邮件发送。它在我的本地主机服务器（Windows 7上的IIS 7.5）上运行时可以与我的个人Gmail帐户一起使用，并且＃34;访问安全性较低的应用程序＆＃34;已启用。但是，当我尝试在远程服务器（Windows Server 2012上的IIS 8）上运行此代码时，它在Mail.Send上生成错误80040211;事实上，当访问不太安全的应用程序＆＃34;访问时，会产生同样的错误。被禁用会让我认为Gmail身份验证会导致问题。

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") ="******"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="******"

Mail.Configuration.Fields.Update

Mail.Subject="Form submission"
Mail.From="******"
Mail.To="******"
Mail.TextBody=""

For Each thisItem In Request.QueryString
    Mail.TextBody = Mail.TextBody & thisItem & ": " & Request.QueryString(thisItem) & vbNewLine
Next


Mail.Send
Set testMail=nothing

Answer 1

您知道在IIS8服务器上正确配置了哪些ASP邮件组件（CDOSYS等） - 可能是个问题。

邮件发送错误

1 个答案: